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