VBScript to copy one file to multiple destinations and show gui progress bar

问题

I am trying to create a VBScript that will copy one file to multiple UNC-destinations simultaneously and display Windows Explorer progress bar while doing so.

I am new to VBScripting and so far I am only able to copy one file using this code:

Const FOF_CREATEPROGRESSDLG = &H0&

strTargetFolder = "\\computer\target"

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(strTargetFolder)

objFolder.CopyHere "C:\tmp\copy\*.*", FOF_CREATEPROGRESSDLG

How can I add another destination and display two progress bars?

来源：https://stackoverflow.com/questions/37945142/vbscript-to-copy-one-file-to-multiple-destinations-and-show-gui-progress-bar