fso.CopyFolder adding a progressbar 3

[pbuddy2007]

Any idea how I can add a progressbar to a fso.CopyFolder process ?

 

[Swi]

This doesn't use FSO but should be what you are looking for:

http://www.microsoft.com/technet/scriptcenter/guide/sas_fil_vrwr.mspx?mfr=true

Swi

 

[pbuddy2007]

thanks !!!!
but how do I add 2 constant to she shell procedure
I'd like the &H0& (display progress) + &H10& (apply the Yes to all)...Below is the original code to which I'll like to add the &H10& constant

Const FOF_CREATEPROGRESSDLG = &H0&
ParentFolder = "D:\Archive"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(ParentFolder)
objFolder.CopyHere "C:\Scripts", FOF_CREATEPROGRESSDLG

 

[Swi]

Somthing like this should work:

Const FOF_CREATEPROGRESSDLG = &H0&
Const FOF_NOCONFIRMATION = &H10
ParentFolder = "D:\Archive"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(ParentFolder)
objFolder.CopyHere "C:\Scripts", FOF_CREATEPROGRESSDLG Or FOF_NOCONFIRMATION

Swi

 

[Swi]

Oops, missed an ampersand:

Const FOF_CREATEPROGRESSDLG = &H0&
Const FOF_NOCONFIRMATION = &H10[red]&[/red]
ParentFolder = "D:\Archive"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(ParentFolder)
objFolder.CopyHere "C:\Scripts", FOF_CREATEPROGRESSDLG Or FOF_NOCONFIRMATION

Swi