VBSCRIPTでｃｍｄ命令（dir）を実行させて

パスはｃｓｖファイルで読みこんで、ｖｂｓ上で
Set Shell = CreateObject("WScript.Shell")
Shell.Run "cmd /C ""dir \￥xxx\xxxxx\xxxxx"
を実行させてアクセスできなかったパスがぞんざいするならエラーで返して続いて実行してほしいです。
それで最後にログにエラー情報を書く処理をおこないたいです。問題はｃｍｄだとecho %errorlevel%これを使えば
すぐにこげたことを１か０で返してくれますが
ｖｂｓ上でも可能ですか？

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2006/02/21 14:38

ret = Shell.Run(コマンド, 1, true)

のようにすればアプリケーションから返されるエラーコードを取得できます。
第３引数の true 、は、アプリケーションの実行が終了するまで待つ指定です。省略すると、実行終了を待たないので、ret は、エラーの有る無しに関係なく無条件に０になります。質問文のような場合は、true を指定する必要があります。

ちなみに、
Shell.Exec でコマンドを実行する場合は、
StdIn,StdOut,StdErr（ストリーム） で標準入力、標準出力、標準エラー出力にアクセスできます。

この回答へのお礼

いつもお世話になります。
早くて正確なアドバイスありがどうございます。
ret = Shell.Run(コマンド, 1, true)
後ろの１、ｔｒｕｅが非常にいいヒントになりました。
いつもありがとうございます。

お礼日時：2006/02/21 15:56