files(typeOFfiles)

function cellFiles = files(typeOFfiles)

% FILES  Make a list of files in the current directory and saves
%        in a cell.
%      CELLFILES = FILES(TYPEOFFILES), find the files that look as the
%      expression TYPEOFFILES
%
% For example, the statement A = files('*.ppk') find all files with
% extension ppk and saves it into the variable A

% Copyright: A. Sabino,  [e-mail]  
%            D. Barraez, [e-mail]
% Department of Random Models, Faculty of Science
% Central University of Venezuela. Caracas, Venezuela.

if nargin < 1
    typeOFfiles = '*.*';
end

% Initialize the constant
FIRST_COMMAND = 'dir ';
SECOND_COMMAND = ' /b';

% Get the files in the current directory
[state, currentFiles] = dos([FIRST_COMMAND,typeOFfiles,SECOND_COMMAND]);

% Initialize the variable cellFiles, that will saves the file's name in the
% current directory
word = ''; % Variable that saves a temporal file name
cellFiles = cell(1,1); % Variable that contains the files in the current
                       % directory

% Verifing if the directory is empty or not
if state == 0 
    for icharacter = 1:length(currentFiles)
        if double(currentFiles(icharacter))==10
            cellFiles{length(cellFiles),1} = word;
            cellFiles{length(cellFiles)+1,1} = '';
            word = '';
        else
            word(length(word)+1) = currentFiles(icharacter);
        end
    end
    cellFiles = cellFiles(1:length(cellFiles)-1,1);
else
    cellFiles{1,1} = 'Empty';
end