My dear Professor, Borris

Your codes shows following error message

On this line
lnFileAttributes = GetFileAttributes(LCFILE)
File GetFileAttributes.prg does not exists

On this line
If lnFileAttributes = -1
Variable lnFileAttributes does not found

On this line
nLastError=GetLastError()
File GetLastError.prg does not exists

On this line
=FormatMessage(4096,0,nLastError,0,@cError,255,0)
Variable nLastError is not found

Please help again