Hi everyone,

I have this code in a form that copies files from backup folder/file. When I run the form in VFP before compiling it into Exe file it does as expected copying the files.But when compiled into exe file, it doesnt work. Any idea why it run when in VFP and not when after its been compiled to an Exe?

Any suggestion would be greatly appreciated

Thanks,

Sonny

LOCAL lcDirPath, lcCurrentDir, oShell,  oDstFolder
Do while .T.
   With ThisForm
	lcCurrentDir  = ALLTRIM(SYS(5))+ALLTRIM(SYS(2003))
        lcDirPath     = ALLTRIM(.txtDirPath.Value)
        IF EMPTY(.txtDirPath.Value)
            Messagebox("Directory Pathname is Empty",0+16,"Invalid Entry")
            Exit
        ENDIF
        IF .NOT. DIRECTORY(.txtDirPath.Value)
            Messagebox("Directory Pathname Not Found!",0+16,"Invalid Entry")
            Exit
        ENDIF
        SET SAFETY OFF
	oShell = CREATEOBJECT("Shell.Application")
	oDstFolder = oShell.NameSpace("&lcCurrentDir"+"\datafile")
	IF VARTYPE(oDstFolder)="O"
	     oDstFolder.CopyHere("&lcDirPath"+"\*.*")
	ENDIF
        SET SAFETY On  
       Exit
Enddo