function files=uigetfiles_m(start_dir)

  dirfile=uigetdir(start_dir,'Pick Data Directory');
  d=dir(dirfile);
str = {d.name};
[sel,ok] = listdlg('PromptString','Select a file:',...
                'SelectionMode','multiple',...
                'ListString',str);
##if ok == 1
##   imax = length(sel);
##   for i=1:1:imax
##      disp(str{sel(i)});
##   end
##end
for j=1:length(sel)
  t=fullfile(d(sel(j)).folder,d(sel(j)).name);
  files(j)=t;
end
return
