Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Shell Folder Object
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00812320
Message ID:
00812332
Views:
15
I tried this code and had a "Missing operand error" on the last line, however as the FOF_CREATEPROGRESSDLG is an optional parameter I omitted it but then I get the same error msg than before: "objfolder is not an object"

>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
I'm a mixture of Albert Einstein and Arnold Schwarzenegger. The only trouble is that I got Einstein's body and Schwarzenegger's brain
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform