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