VBSでファイルをコピーする際にコピー状況を表示させる方法

前へ 次へ
このQ&Aのポイント
  • VBSでファイルをコピーする際、コピー状況を表示する方法について教えてください。
  • VBSでのファイルコピーでコピー状況を表示させる方法について教えてください。
  • VBSでファイルをコピーする際に、コピー中の進行状況を表示させる方法について教えてください。
回答を見る
  • ベストアンサー

VBS でファイルをコピーする際にコピー状況を表示させる

現在VBSで、ファイルのコピー部分を作っています。 記述コード↓ fso.CopyFile コピー元ファイル , コピー先フォルダ, True ' コピー自体は出来るのですが、コピー中に何も表示されないので 大容量のファイルをコピーしている際に何も表示されない時間が長く実行されているのか不安になります。 コピー状況を明示させるようなコマンドは無いのでしょうか？？ 解る方いらっしゃいましたら教えてください。 また、全然関係ないのですが、わかれば教えてほしい点が1点。 Run関数でプログラムを実行させるコードで昔記述したものがあり、 オブジェクト名.Run "C:\temp\SP3\test.vbs /q/z" こういったのがあるんですけど、 /qと/zが何を表すのかわからなくなってしまいました。 Run関数を調べると、オプションの値は0から始る数字になっていて /qとか/zを設定するなんていう説明が見当たりませんでした。 解る方いらっしゃいましたら教えてください。

  • pen123
  • お礼率58% (222/377)

質問者が選んだベストアンサー

  • ベストアンサー
  • rinkun
  • ベストアンサー率44% (706/1571)
回答No.1

コピー状況表示は知りません。多分ないと思いますが。 後者は、"C:\temp\SP3\test.vbs /q/z"がコマンドラインなので、/q/zはRunのオプションではなくtest.vbsのコマンドラインパラメータです。test.vbsを見れば分かるでしょう。

その他の回答 (1)

  • piroin654
  • ベストアンサー率75% (692/917)
回答No.2

エクスプローラを利用した方法はあります。 http://www.microsoft.com/japan/technet/scriptcenter/scripts/misc/progress/default.mspx ここの方法を応用すればできると 思いますが。WScriptですが、VBScript に書き換えれば可能です。プログレスバー への表示はこんなものだと思います。 For lnL = 0 To 10 objExplorer.StatusText = "(" & lnL * 10 & "%)" & String(lnL, "●") & String(10 - lnL, "○") WScript.Sleep 1000 Next すこしググってみますが。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • VBSで作成したフォルダにファイルをコピー出来ない

    いつもお世話になっております。 表題に関してなのですが、VBSでFileSystemObjectを利用してフォルダを作り、 そのフォルダにファイルをコピーするという内容のスクリプトを作成しています。 ですが、フォルダは無事に出来るのですが、ファイルをコピーしようとすると、 「書き込み出来ません」 と出て、コピーされません。 fso.CopyFileのところで、エラーが発生してるようです。 CopyFileメソッドの代わりにCopyコマンドで実行するように記述すると 問題なくコピーされます。 解決方法等ございましたら、ご教授ねがいます。

  • ファイルをコピーするvbs

    ファイルをコピーするvbsってどう書けばよいのでしょうか？ このvbsを実行すると、その後貼り付けでファイルがペーストされるように、クリップボードにファイル自身をコピーしておきたいです。 出来れば.NET不要でvbsファイルのみで実現出来るとありがたいです。

  • 特殊フォルダへのファイルコピー

    win10　ofice2016 ユーザレベル：Administrator パソコン利用者に、共通で使用するプログラムのコピー及び起動の設定をexcelマクロで対応しています。 Win10のRS5バージョンアップの影響か、従来動作していたマクロが動作しなくなりました。 c:\A\B.bat を スタートメニュー及び、共通ディスクトップにコピーするマクロ で下記の内容です。 Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFile Source:="C:\A\B.bat", Destination:="C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp\InspecStart.bat" FSO.CopyFile Source:="C:\A\B.bat", Destination:="C:\Users\Public\Desktop\InspecStart.bat" Set FSO = Nothing 上記実行で 実行時エラー'70': 書き込みできません とのエラーが出てしまいます。 ちなみに ' FSO.CopyFile Source:="C:\A\B.bat", Destination:="C:\work\B.bat" はコピーできます。 また、エクスプローダ上でのコピーはできます。 このフォルダへのコピーは管理者権限が必要です。 と表示され、続行でコピー可です。 ファイルのコピーを手動でやれば済むのですが、パソコン等はリースです。 リース更新時に沢山の設定するのは手間なので、特殊フォルダへのコピーを簡単に対応可能な手段があればとのおもいです。 excelマクロにはこだわりませんが、サーバからのファイルコピー等はマクロで実行するので、一緒に起動用のファイルをコピーで対応できたらと思った次第です。 サーバからファイルをc:\A配下へコピー。 Aフォルダ配下の起動ファイルを特殊フォルダ2ケ所に設定したいのです。 よろしくお願いします

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

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

  • ファイルコピーVBS

    ファイルコピーVBS ファイルをコピーするVBScriptの書き方を教えてください。 コピー対象ファイルはEドライブのDataフォルダに入っています。 コピー対象ファイルは拡張子がdocかつファイルサイズが1MB以上のファイルだけです コピー先はHドライブのDataフォルダ直下です。 毎週日曜日の午前２時にWindowsのタスク機能等で実行する予定です。 WindowsServer2003R2StandardEditionで実行します。 その他必要な情報があれば言って下さい。 よろしくお願いします。

  • [VBS]ファイルコピーで怪奇現象

    FileSystemObjectでファイルをコピーしたく、下記のようなコードを書きました。 SYSFILEはファイル名です。（拡張子なし） ******************************************************* Dim objFileSys SYSFILE Set objFileSys = CreateObject("Scripting.FileSystemObject") objFileSys.CopyFile("C:\TEST\", "C:\REAL\SYSFILE") C:\REAL\SYSFILE"を編集して"C:\REAL\SYSFILE_NEW"を作成（コード省略） SYSFILE_NEWを読み込んで最終行の番号を取得（コード省略） ’取得した番号にリネームコピー objFileSys.CopyFile("C:\REAL\SYSFILE_NEW", "C:\REAL\XXX")←★　 ******************************************************* ★のCopyFileで「ファイルが見つかりません」のエラーになります。 "C:\REAL\SYSFILE_NEW"は確実に作成されて存在しますが発生します。 おかしいと思って直前にFileExistsをしてもFalseになります。 エクスプローラー上では確かに存在するし、コピーもできます。 実際はファイル名の箇所は変数名なので中身を確認しようと★の直前行で echoで出力してみたが、変数の中身も問題ありませんでした。 おかしいのがその後です。 今度はエラーにならずに処理が通りました。 直前にechoでダイアログを表示させた場合にはエラーが発生しません。 その記述を削除するとまた発生します。 考えられる原因を教えていただきたいです…

  • vbsからのWordマクロ実行

    やりたいこと 　vbsからWordマクロを実行し復帰値をMsgBoxで表示する。 問題点 　Test関数を実行し復帰値を取得したいのですがコンパイルエラーとなってしまいます。　 　正しい書き方を教えてください。 Set oApp = CreateObject("Word.Application") oApp.Documents.Open WScript.Arguments(0) Dim code code = oApp.Run Test　★ MsgBox code

  • win7でvbsファイルが実行できない

    以下のようなvbsファイルを実行してデータ取り込みをしていますが、 win7にPCを替えたら実行できなくなりました。 エラーは4行目なのですが、原因がわかりません。 どなたか教えていただけないでしょうか？ sPath = "\\snysv○○\○○部\○○DIV\○○書データ\_ ○○データ入力用\○○データ.mdb"'実行するファイルのパスを指定 Set oApp = CreateObject("Access.Application") oApp.visible = FALSE oApp.OpenCurrentDatabase sPath　'ここでエラーになるようです。 oApp.Run "データ取込" 'プロシージャを実行します。 oApp.Quit : Set oApp = Nothing Const OverwriteExisting = True Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "\\snysv○○\○○部\○○DIV\○○書データ\○○書データ入力用\*.xls" , "\\snysv○○\○○部\○○DIV\○○書データ\○○書データ入力用\取込済データ\", OverwriteExisting objFSO.DeleteFile "\\snysv○○\○○部\○○DIV\○○書データ\○○書データ入力用\*.xls" Set FSO = Nothing

  • VBSについて

    VBSの中でDOSのコマンドを実行したいのですが、VBS内で使用した変数を Runで使うことはできないのでしょうか？ ################################################ Set WSHShell = CreateObject("WScript.Shell") x = "C:\Documents and Settings\user" WSHShell.Run "cmd.exe /K dir x" ################################################ たとえば上記のようなプログラムを作ったときに最終行のcmd.exeの 実行で変数xを使用したいのですが、可能でしょうか？ このまま実行するとコマンドプロンプトの窓が開いて「ファイルが見つかりません」と表示されてしまいます。 何か方法があればご教授ください。よろしくお願いします。

  • ＶＢＳの戻り値

    windows 2003サーバで使うVBSファイルを以下のように作りました。このとき明示的に戻り値０を返したいのですが、どのような記述になるか教えてください。 --------------------------------------- c:\winnt\system32\ shutdown.exe -r -t 0 ---------------------------------------

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する