view aim-mat/tools/fexist.m @ 0:74dedb26614d

Initial checkin of AIM-MAT version 1.5 (6.4.2011).

% tool
% 
%   INPUT VALUES:
%  
%   RETURN VALUE:
%
% 
% (c) 2003-2008, University of Cambridge, Medical Research Council 
% Maintained by Tom Walters ([e-mail]), written by Stefan Bleeck ([e-mail])
% http://www.pdn.cam.ac.uk/cnbh/aim2006
% $Date: 2008-06-10 18:00:16 +0100 (Tue, 10 Jun 2008) $
% $Revision: 585 $

function is_there=fexist(datei)
%usage: is_there=fexist(datei)
% returns a boolean (1 or 0) whether the requested datei exist or not

is_there=0;


try 
	nr=exist(datei);
catch 
	is_there=0;
	return;
end

% is a normal file:
if nr==2
	is_there=1;
	return;
end

% is a directory:
if nr==7
	is_there=1;
	return;
end


% 
% 
% FID = -1;
% FID = fopen(datei,'r');
% if FID ~=-1
%     is_there=1;
%     fclose(FID);
%     return
% end
% 
% % if still here, it can be a directory
% % try to find the name in the list
% dir_struct = dir;
% [sorted_names,sorted_index] = sortrows({dir_struct.name}');
% 
% for i=1:length(sorted_index)
%     if strcmp(sorted_names(i),datei)
%         is_there=1;
%         return
%     end
% end
% is_there=0;
%