filelist

clear
d = dir('.');
n = length(d)-2;
m = 0;
fmt = imformats;
for k=1:n
    name = d(k+2).name;
    if ~d(k+2).isdir;
        for j=1:length(fmt)
            if strfind(lower(name),char(fmt(j).ext(1)))
                sz = size(name);
                m = m + 1;
                files{m}  = name;
                fprintf('%s\n',name);
            end
        end
    end
end

save filelist files