ドロップファイルを受け取る

[vb]
Dim tmpA, Args
Set Args = WScript.Arguments
For Each tmpA In Args
MsgBox tmpA
Next
Set Args = Nothing
[/vb]
VBScriptでドロップされたファイルを受け取るにはArgumentsを使う。
このオブジェクトのメンバーそれぞれにドロップされたファイルのパスが入っている。
この添字は0から始まっているので、最初の1つを受け取るには次のようにする。
[vb]
tmpA = Args(0)
[/vb]