wshでコピーのプログレスバーダイアログを表示する方法

ファイルのコピー中に視覚的なインジケータを表示する方法はありますかhttp://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/oct06/hey1010.mspx


Const FOF_CREATEPROGRESSDLG = &H0&

strTargetFolder = "D:\Scripts"

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

objFolder.CopyHere "C:\Scripts\*.*", FOF_CREATEPROGRESSDLG