pro GetFileBatch, Files, FileN, CallFilter=CallFilter

if (keyword_set(CallFilter)) then begin
  Filter = CallFilter
endif else begin
  Filter = ""
  print, "  > Enter the filter by which we identify the files."
  read, Filter
endelse

CommandLine = 'ls -1 ' + Filter
spawn, CommandLine, Files

FilesDims = size (Files) & FileN = 0 & FileN = FilesDims (1)

end