uicd(varargin)

function uicd(varargin)
% Improved version of builtin CD
% Added functionality to Change directory by GUI, by pointing to upper
% directory
% Usages: uicd, uicd reza, uicd d:\reza, uicd d:\, uicd d:, uicd
% D:\programfinal\embresults\bctype2accase
% See also cd, uigetdir
% Rezaul, 2004

if ~isempty(varargin),
    if ~exist(char(varargin{:}),'dir')
    errt = ['Cannot CD to ' char(varargin{:}) ' (Name is nonexistent or not a root directory or sub-directory).'];
    errorr = sprintf(errt);
    error(errorr);
    return
    end
    cd(varargin{:});
else
    basedir1 = pwd;
    asfr = find(basedir1=='\');
    if length(asfr)>1
        basedir = basedir1(1:asfr(length(asfr)));
    else
        basedir = basedir1;
    end
    funcf = uigetdir(basedir,'Select a directory to change from current directory-:) Reza');
    if funcf == 0,return,end
    cd(funcf);
end