>Dear Sir,
>
>I load my PJX file from this location
>D:\Projects\vfp\office\accounts
>
>[pre]
>lcFullPath=FULLPATH(CURDIR()) && D:\Projects\vfp\office\accounts
>LastFolder = substr(m.lcFullPath, rat('\', m.lcFullPath) + 1)
>?LastFolder
>[/pre]
>
>The above codes display noting
>
>Please help again

lcFullPath=FULLPATH(CURDIR()) && D:\Projects\vfp\office\accounts\
LastFolder = substr(m.lcFullPath, rat('\', m.lcFullPath,2) + 1)
?LastFolder

Do you want the last \ removed?