VBSのrobocopyについて

Question

コピー元　ネットワークドライブでZに割り振り
srcDir = "\200.178.30.210\d
コピー先が
destDir = "\200.178.30.210\e\test"
で
robocopyCmd = "robocopy " & srcDir & " " & destDir
Dim wExec 'As WshExec
Set wExec = wsShell.Exec(robocopyCmd)
でコピーを行うとき、"\200.178.30.210\e\test"のパスが繋がらない時にコマンドプロンプトの黒い画面がずっと出ているのですが、これを強制終了させて、処理を行わせたいのですがどのようにコードを書けばいいか困っています。

教えてください、お願いします。

Answer 1

黒い画面のままなのはrobocopyが処理中だからですね。
VBS側でどうにかしようにもrobocopyの処理が終わるまでどうにもできません。
Execメソッドにはタイムアウトの設定などはないようですので、robocopyの設定をどうにかするしかありません。
ヘルプを見ると再試行オプションでなんとかなりそうですね。

::
:: 再試行オプション:
::
               /R:n :: 失敗したコピーに対する再試行数: 既定値は 1,000,000。
               /W:n :: 再試行と再試行の間の待機時間: 既定値は、30 秒です。

               /REG :: /既定の設定としてレジストリに R:n と /W:n を保存します。

               /TBD :: 共有名が定義されるのを待ちます (再試行エラー 67)。

おそらく/R:0だけ設定すればよいのではと思いますが、他の要因で再試行が必要な場合もあるかもしれませんので、待機時間1秒で30回とかにしておいたほうが安全かもしれません。/R:30 /W:1
そこらへんはご自分の判断でお願いします。

Answer 2

強制終了を考える前に、robocopyの設定を見直してはいかがでしょうか？
デフォルトでは30秒ごとに100万回リトライといった設定のはずです。

---

補足：強制終了する場合

今回はrobocopyの設定の変更で問題無いと思いますが、強制終了する方法を示しておきます。

WshScriptExec オブジェクトの
Terminate メソッド (WshScriptExec)を使用すると、実行したプロセスを強制終了できます。

出来るのは強制終了だけですので、終了条件は自分で考えて実装する必要があります。

コードにすると以下のようなイメージです。

' ...
Dim wExec 'As WshExec
Set wExec = wsShell.Exec(robocopyCmd)

' 強制終了する時間
Const WAIT_SEC = 5 
Dim endTime
endTime = DateAdd("s", WAIT_SEC, Now) 'WAIT_SEC 秒待機

Const WshRunning = 0, WshFinished = 1, WshFailed = 2
Do
    If wExec.Status <> WshRunning Then
        'If wExec.ExitCode = ~
        WSH.Echo "終了"
        Exit Do
    End If
    
    If Now > endTime Then
        Call wExec.Terminate
        WSH.Echo "強制終了"
        Exit Do
    End If
    
    WSH.Sleep 10
Loop

ただし、

Terminate メソッドは最後の手段としてのみ使用します。これは、アプリケーションによっては適切にクリーンアップできない場合があるためです。通常は、プロセスを途中で中断せず、プロセス自身で実行を終了させるようにします。

Terminate メソッド (WshScriptExec)より引用

とあるように最後の手段です。