>oDialog = CREATEOBJECT('MSComDlg.CommonDialog') >* Set the flags for Multi-Select/Explorer >oDialog.MaxFileSize = 260 >oDialog.Flags = 0x200 + 0x80000 >oDialog.ShowOpen >* Save the file name to a variable >lcfilename = oDialog.FileName >lnpt = AT(CHR(0), lcfilename) >IF lnpt > 0 > lcpath = LEFT(lcfilename, lnpt - 1) > ? lcpath > 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) > lcfilename = SUBSTR(lcfilename, lnpt + 1) > ELSE > lcname = lcfilename > lcfilename = "" > ENDIF > a_file[lni] = lcname > ENDDO > lnlast = ALEN(a_file, 1) > FOR lni = 1 TO lnlast > ? a_file[lni] > NEXT >ENDIF >oDialog = NULL