Hi Nadya,

The following should help:

* 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
ENDIF

This will parse the name. The path will be in the lcpath variable, and the file names stored in the a_file array.

hth,