コマンドラインで強制終了した場合の処理の仕方

VBAで

Dim objWSH As Object
Set objWSH = CreateObject("WScript.Shell")

objWSH.Run Command, 8, True

というようにしてコマンドラインでプログラムを実行している途中で
コマンドプロンプトのウインドウの×印をクリックして
強制終了したとします。
するとそのままVBA上で書かれたその後のプログラムは実行されてしまいますが
コマンドプロンプトが正常に終了しなかった場合には
その後のプログラムの一部あるいは全てをスキップするようにしたいのですが
どうすれば良いでしょうか？

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2015/10/30 21:30

たとえば

Sub test()
Dim objWSH As Object
Set objWSH = CreateObject("WScript.Shell")
Dim RtnVal As Long
RtnVal = objWSH.Run("%comspec% /c ping 127.0.0.1 -n 10", 8, True)
Debug.Print RtnVal
End Sub
として試すと終了後にはRtnValには0が返ります。

コマンドプロンプトを強制終了させると-1073741510 でした。
pingをpongにすると1になりました。
なのでRtnValの返り値が0かそれ以外かで判断しては？

※深く考えてはいません。
あなたのCommandの内容次第かもしれない。

この回答へのお礼

ありがとうございます。

お礼日時：2015/11/01 15:18