Try

#DEFINE FOF_CREATEPROGRESSDLG = 0

cParentFolder = "c:\Archive"
objShell = CreateObject("Shell.Application")
objFolder = objShell.NameSpace(cParentFolder)
objFolder.CopyHere("C:\Folder", FOF_CREATEPROGRESSDLG)

>I have translated the following code
>
>

>Const FOF_CREATEPROGRESSDLG = &H0&
>ParentFolder = "D:\Archive"
>Set objShell = CreateObject("Shell.Application")
>Set objFolder = objShell.NameSpace(ParentFolder)
>objFolder.CopyHere "C:\Scripts", FOF_CREATEPROGRESSDLG
>
>

>
>To VFP like this:
>
>

>#DEFINE FOF_CREATEPROGRESSDLG = &H0&
>
>cParentFolder = "c:\Archive"
>objShell = CreateObject("Shell.Application")
>LOCAL objFolder  as objShell.NameSpace(cParentFolder)
>objFolder.CopyHere("C:\Folder")
>

>
>However, after I run the code the line
>

>objFolder.CopyHere("C:\Folder")
>

>
>says objfolder is not an object. What am I doing wrong? Any help will be appreciated!
>
>TIA,
>
>Enmanuel