[起動時の引数を取得する]
起動時の引数を表示します。
For ループの方が分かり易いですが、慣れると For Each の方が簡単かもしれません。
【ソースコード】
[tips0002.vbs]
Option Explicit
Dim lngLoop
WScript.Echo "引数は" & WScript.Arguments.Count & "個あります。"
For lngLoop = 0 To WScript.Arguments.Count - 1
WScript.Echo lngLoop + 1 & ": " & WScript.Arguments.Item(lngLoop)
Next
[tips0002.vbs]
Option Explicit
Dim strArg
WScript.Echo "引数は" & WScript.Arguments.Count & "個あります。"
For Each strArg In WScript.Arguments
WScript.Echo " " & strArg
Next
【実行結果】
C:\> cscript //NoLogo tips0002.vbs arg1 arg2
引数は2個あります。
1: arg1
2: arg2