getdir(filter)

function fnames = getdir(filter)
    files = dir(filter);
    if (size(files)>0)
       for i = 1:size(files)
           fnames(i) = cellstr(files(i).name);
       end
    else
        fnames = -1;
    end
end