vbsでファイルやフォルダのコピー中にプログレスバーを表示させるにはど

質問

vbsでファイルやフォルダのコピー中にプログレスバーを表示させるにはどうすればいいでしょうか。
無言でコピーするコードはいろいろと紹介されているのですが、何も表示されないので進行状況がわかるようにしたいのです。
残り時間表示やパーセント表示などどのような表示方法でもいいのでおおよその進行状況がわかる方法をご存知でしたら教えて頂けないでしょうか。
宜しくお願い致します。
<例>
コピー元ファイル："C:\test\*.*"
コピー先フォルダ："C:\backup\"

回答No.1

DOUGLAS_ · ベストアンサー

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

Const FOF_CREATEPROGRESSDLG = &H0&
strTargetFolder = "C:\backup\"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(strTargetFolder)
objFolder.CopyHere "C:\test\*.*", FOF_CREATEPROGRESSDLG

お礼

ありがとうございます！
できましたー！！
昨日あれだけ探しまわったのに見つけることができませんでした。
本当にありがとうございました。