; supply with FileN
; returns AllFiles with blanks or with filepaths

pro LoadFilePaths, FileN, AllFiles

AllFiles     = strarr (FileN)
AllFiles [*] = " "

FilePath = ""

print, "  > Enter the .txt file containing the filepaths, or blank for manual:"
read, FilePath

FilePath = strtrim (FilePath)
if (strlen(FilePath) GT 0) then begin
  openr, lunAll, FilePath, /get_lun
  
  for XFile = 0, (FileN-1) do begin
    readf, lunAll, FilePath, format='(a100)'
    AllFiles [XFile] = strtrim(FilePath)
  endfor
  
  free_lun, lunAll
endif    

end