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

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

No.1 ベストアンサー 回答者： DOUGLAS_ 回答日時： 2010/06/24 09:49

●ファイルのコピー中に視覚的なインジケータを表示する方法はありますか

http://www.microsoft.com/japan/technet/scriptcen …
にそのままの例が載っております。

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

この回答へのお礼

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

お礼日時：2010/06/24 10:41