Argumentsオブジェクト


コマンドライン引数があるか調べる (Count プロパティ)


'//コマンドライン引数があるか調べる
'//     コマンドライン引数が渡されていなければ終了
Dim args
Set args = Wscript.Arguments
If args.Count = 0 Then
    MsgBox "コマンドライン引数がありません",48
    WScript.Quit
End If

戻る