続・VBscriptでコマンドラインへ発行したい

質問

以前書き込みさせていただきましたが携帯とPCを使ったため間違ってしまい複数の質問を立ててしまいました。
大変申し訳ありませんでした。最初に立てた二つの書き込みは閉じしっかりまとめたものをここに書かさせていただきます。大変申し訳ありませんでした。
不快な思いさせてしまったことは重々承知しておりますが教えていただけないでしょうか？
≪継続URL≫
http://oshiete1.goo.ne.jp/qa4301789.html
http://oshiete1.goo.ne.jp/qa4299107.html
まずやりたい動作（仕様？）を見直します。
１．コマンドプロンプトを立ち上げる
２．ディレクトリを変更するためカレントディレクトリする。（何故かこうしないとダメ・・・環境変数の設定が不可みたい？）
３．コマンドラインツールを立ち上げテキストに記述されたコマンドを発行させる。
４．テキストの数だけ実行をさせる。

Option Explicit
On Error Resume Next

Dim objWshShell ' WshShell オブジェクト
Dim strNewFolder ' 移動するフォルダ
Dim i
Dim strEXE

Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
strNewFolder = "D:\Test"
objWshShell.CurrentDirectory = strNewFolder
objWshShell.Exec("cmd.exe").StdOut.ReadAll
Else
WScript.Echo "エラー: " & Err.Description
End If
For i = 1 to 15
strCOM = "XXXX.exe @ D:\HEPPOKO" & Right("000" & CStr(i), 4) & ".txt"
Set oExec = WshShell.Exec(strCOM)
WScript.Sleep(300000)
Next
Set objWshShell = Nothing

回答No.1

osamuy · ベストアンサー

＞ １．コマンドプロンプトを立ち上げる
これは不要では。

WSHじゃなくてもバッチで書けそうな。こんな感じ：

Cd D:\Test
SetLocal EnableDelayedExpansion
For /L %%i in ( 1, 1, 15 ) Do (
Set idx=000%%i
XXXX.exe @ D:\HEPPOKO!idx:~-4!.txt

)

補足

回答有難うございます。
でもバッチだと繰り返しのところでSLEEP関数見たいのが使えない気がしまして・・・