string invoice_folder = "C:\\INVOICE\\*.txt"
string file_item = find file(invoice_folder)
int open_file
string file_name

while (file_item)
   open_file = open(file_item) for input
   file_name = name open_file
   print file_name + LF
   
   file_item = find next file
wend

dispatch obj_ = "Scripting.FileSystemObject"
dispatch folder_
dispatch files_
folder_ = obj_.GetFolder("C:\\INVOICE")
files_ = folder_.files

string invoice_folder = "C:\\INVOICE\\*.txt"
string file_item = find file(invoice_folder)
int open_file, i
string file_name
mapValue mvLista
mvLista.Type(string)

while (file_item)

   buf = file_item
   if find regular "{*}{(!\\)##}$" then
      mvLista.Set((using "%40.40s",regular 2),buf)
   endif
   
   file_item = find next file
wend

   mvLista.sort()

for i = 1 to i > mvLista.Size()   
   print file_item = mvLista.Get(i),lf   
next i