Then, the only thing I see is that cParentFolder ("c:\Archive") does not exist, Can you check that ?

>Sorry it didn't work! I'm still having the same error msg.
>
>
>>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