Trying to copy into UAC controlled area?

>Hi everyone,
>
>I have this code in a form that copies files from backup folder/file using Shell.Application. When I run the form in VFP before compiling it into Exe file it does as expected copying the files.But when compiled into an exe file and run in Windows 7 it doesn't work., Same Exe file runs in Windows XP.
>Any idea why it works when run in VFP and not when after its been compiled to an Exe file and run in Windows 7, but works in Window XP?
>
>Any idea 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
>
>