>Hi George,
>
>Now this code works perfect. Don't know why it didn't before.
>Thanks a lot, George.

Hi Nadya,

The stupid programmmer (yours truly), left the following out of the code

IF lnpt > 0
  lcname = LEFT(lcfilename, lnpt - 1)
  * Left this out
  lcfilename = SUBSTR(lcfilename, lnpt + 1)
ELSE
  lcname = lcfilename
  lcfilename = ""
ENDIF

Sorry about that.:-)