• ベストアンサー
  • すぐに回答を!

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

  • 質問No.204531
  • 閲覧数4270
  • ありがとう数6
  • 回答数1

お礼率 5% (1/20)

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
  • ベストアンサー

ベストアンサー率 45% (207/457)

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の例です。
関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ