>>>Const FOF_CREATEPROGRESSDLG = &H0& >>>ParentFolder = "D:\Archive" >>>Set objShell = CreateObject("Shell.Application") >>>Set objFolder = objShell.NameSpace(ParentFolder) >>>objFolder.CopyHere "C:\Scripts", FOF_CREATEPROGRESSDLG >>> >>>>>>
>>>#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") >>>>>>
>>>objFolder.CopyHere("C:\Folder")
>>>
>>>