VB6でWSH（vbs）を起動できる方法を教えてください。

質問

visual Basic 6でアプリケーションを開発していますが、
このアプリケーション(exe)から、test.vbsを起動したいと考えています。

====vbのコード=====
'ボタンクリックしたら、test.vbsが実行される
Private Sub Command1_Click()
shell("test.vbs")
End Sub

==== test.vbs ====
MsgBox("test.vbs起動しました。")

です。
上記のようにコードを書きましたが、Shell関数で

「実行時エラー'5'
プロシージャの呼び出し、または引数が不正です。」

のメッセージが出力されて、vbsが起動できません。
VB6でWSH（vbs）を起動できる方法を教えてください。

環境は以下の通りです。
OS：WIN2000
アプリ：VB6
ブラウザ：IE5.0

回答No.1

yanmaa · ベストアンサー

shellを使った場合は
Private Sub Command1_Click()
Dim retVal As Variant
retVal = Shell("wscript.exe c:\test.vbs")
End Sub

としましょうね。
vbsはダブルクリックすれば実行できるから提示されたようにすると動くと思われますが実行するにはwscript.exe を実行するかcscript.exe を実行しないといけません。

よってwscript.exe の引き数として実行したいvbsのファイルの所在をフルパスで記述しましょう。

あくまでもshellの例です。