cmd.exe の内部コマンドだとか、すっかり忘れてたぜ

日頃、VBScript なんか全然触らないんだけど、一年に一度くらい、触らなきゃいけないことがある。

今週、正にその稀なケースが勃発した。

お客さんのサーバをリプレースして、元々古いサーバで動いていた VBScript（作ったのは俺に非ず）をそのまま移したんだけど、このスクリプトが謎の異常終了をする。

結局、あれこれ調査はしてみたけど原因不明。

おかげで、同じ機能のスクリプトを作成しないといけないハメになった。

ほんま、久しぶりだ。去年の春ぐらいに触って以来だ。

なので、つまんないところでハマっちゃった(^^;;;

スクリプト内から、DOS のコマンドを実行するのだが、

Return = WshShell.Run("xcopy " & fFolder & " " & tFolder & " /e /c /i /q /h /k /y", 0, true)

は問題なく実行されるのに、

Return = WshShell.Run("rd /s /q " & fFolder, 0, true)

は「エラー：指定されたファイルが見つかりません。　コード：80070002」っていうエラーになる。

fFolder に正しくフォルダー名がセットされてないのか！？っと思って色々調べてみたが、それは正しくセットされている。なんでぇ？？？・・・と思ってたら、本当に rd という実行ファイル（rd.exe or rd.com）が存在していない話だった(^^;

そう、rd はコマンドプロンプト（cmd.exe）の内部コマンドだったんだね。知ってたけど忘れてた(^^;

つーことで、

Return = WshShell.Run("cmd /c rd /s /q " & fFolder, 0, true)

みたいに、/c オプションで実行する内部コマンド（rd）を指定して、cmd を実行すればよかったんだね。

すっかり「見つからないファイル」というのが、fFolder のセットされているフォルダーのことなんだろうと思い込み、そこばっか調査してたんで、2時間近くこのせいで棒に振ったよ(^^;;

ま、これでまたしばらく VBScript を触ることもないので、またも次回、同じような内容で悩むんだろうな(^^;

コメント(0)