VBScriptでドラッグしたファイルに処理

メモ
VBScriptでドラッグしたファイルに処理

Const ForReading = 1,ForWriting = 2,ForAppending = 8
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")

sPath = Fs.GetParentFolderName(WScript.Arguments(0))	'入力パス

For Each infile In WScript.Arguments
　Set sFile = Fs.OpenTextFile(infile,ForReading)	'入力ファイル
　　ここにファイルに対する処理を書く
　sFile.Close 'infileを閉じる
Next

あんまりたくさんのファイルをドラッグすると「引数が多すぎます」的なエラーが帰ってくる。