Hi Nadya,

I neglected to shorten the string in my original post. Here's the corrected version:

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