* Save the file name to a variable lcfilename = oDialog.FileName lnpt = AT(CHR(0), lcfilename) IF lnpt > 0 lcpath = LEFT(lcfilename, lnpt - 1) lcfilename = SUBSTR(lcfilename, lnpt + 1) lnfiles = OCCURS(CHR(0), lcfilename) + 1 DIMENSION a_file[lnfiles] lni = 0 DO WHILE NOT EMPTY(lcfilename) lni = lni + 1 lnpt = AT(CHR(0), lcfilename) IF lnpt > 0 lcname = LEFT(lcfilename, lnpt - 1) ELSE lcname = lcfilename lcfilename = "" ENDIF a_file[lni] = lcname ENDDO ENDIFThis will parse the name. The path will be in the lcpath variable, and the file names stored in the a_file array.