インプットボックスからパラメータを入力して、ファイルを実行 するためのスクリプトです。


【実行画面】




 ソースは、以下の通りです。
***** RunPa.vbs *****

'//////////////////////////////////////////////////////////
'//
'//     パラメータをインプットボックスから入力して
'//         ファイルを実行するためのスクリプト

Option Explicit
Dim args, objWshShell
Dim para, strCmd

'//実行ファイルが指定されていなければ、終了
Set args = Wscript.Arguments
If args.Count = 0 Then
    MsgBox "実行ファイルが指定されていません。",48
    WScript.Quit
End If

para = InputBox("パラメータを入力して下さい。" & vbCr & vbCr &_
    "キャンセル/未入力だと何もしないで終了します。",_
    "パラメータ付きファイル実行")
If para = "" Then
    MsgBox "キャンセル/未入力なので終了します。",48
    WScript.Quit
End if

'// "(ファイル名)+(入力したパラメータ)"を実行
strCmd = args.Item(0) + " " + para
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run strCmd


 下は“Pyxis”の拡張子対応設定(vbs;wsfについて)での例です。
(下の例では、"RunPa.vbs"は、"C:\Script"内にあります。)



 Pyxis(シェアウェア)の入手先は、 ベクター内または、 〜Tom〜さんのページにて



戻る