Best guess is no READ EVENTS to stop processing and get form input.
>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
>
>
Craig Berntson
MCSD, Microsoft .Net MVP, Grape City Community Influencer