>#DEFINE FOF_CREATEPROGRESSDLG = 0 > >cParentFolder = "c:\Archive" >objShell = CreateObject("Shell.Application") >objFolder = objShell.NameSpace(cParentFolder) >objFolder.CopyHere("C:\Folder", FOF_CREATEPROGRESSDLG) >>
>>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) >>objFolder.CopyHere("C:\Folder") >>>>
>>objFolder.CopyHere("C:\Folder")
>>
>>