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