今日のVBS（開発中）

今日はVBS。引数のお勉強。
vbsに任意のファイルをドラッグアンドドロップすると
そのファイルのフルパスを表示してくれるというものを作りました。
複数ファイルのドラッグアンドドロップに対応しています。

' ファイルフルパス表示.vbs
Option Explicit
Dim argcount
Dim argstr
Dim namestr

' 変数namestrに空の文字列を代入
namestr = ""
' 引数の個数分繰り返し（0から引数の個数の-1まで）
For argcount = 0 To Wscript.Arguments.Count - 1
    ' 変数namestrに、引数の文字列と改行コードを追加していく
    namestr = namestr + Wscript.Arguments(argcount) & vbCrLf
Next
' 表示
Wscript.Echo namestr

例えば、C:¥vbsの配下にある
「あああ.txt」と「いいい.txt」をvbsファイルにドラッグアンドドロップすると

C:¥vbs¥あああ.txt
C:¥vbs¥いいい.txt

と表示してくれます。