【WScript.Arguments】ドラッグ&ドロップしたtxtファイルの中身を配列に格納する

Dim GetPath
Set GetPath = WScript.Arguments

'ドラッグ＆ドロップされていなければ中断
If GetPath.Count = 0 Then
 MsgBox "ファイルをドラッグ＆ドロップしてください。",,"警告"
 Wscript.Quit
ElseIf GetPath.Count > 1 Then
 MsgBox "2つ以上のファイルがドラッグ＆ドロップされています。",,"警告"
 Wscript.Quit
End If

Dim lineStr()
Call TXTEXtract(GetPath(0),lineStr)

'●●●TXTファイル内の文字列を配列に格納
Sub TXTExtract(FilePath,lineStr())
 'テキストファイルを配列に格納
 Dim inputFile
 Set inputFile = FSO.OpenTextFile(FilePath,1,False)
 Dim Con
 Con = 0
 ReDim Preserve lineStr(Con)
 DO Until inputFile.AtEndOfStream
 lineStr(Con) = inputFile.ReadLine
 Con = Con + 1
 ReDim Preserve lineStr(Con)
 Loop
 'ファイルを閉じる
 inputFile.Close
 Set inputFile = Nothing
End Sub

前半はドラッグ&ドロップしたファイルのフルパスを取得する。
後半のTXTExtractプロシャージャは引数1で指定したファイル内の文字列を引数2の配列に格納する。

ドラッグ&ドロップしたファイルが0か2つ以上あればダイアログを出して中断する。