Enmanuel,

Think you have to add a line (see below)

>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)

&& add this line, the above line only declares objFolder  
objFolder = 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