Option Explicit



'引数を取得

Dim args, arg, argNum

Set args = WScript.Arguments



'引数の数を確認

argNum = args.Count



'引数が１つもなければ

If argNum = 0 Then



	'スクリプトを終了

	Wscript.Echo _

		"このツールの上に対象のファイルをドラック＆ドロップして下さい。"	

	WScript.Quit

End If



'For Each arg In args

	arg = args(0)

	'Wscript.Echo arg

'Next





'ファイル読み書き

Dim objFSO

'Dim arrLines

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")



' 読み込みファイルの指定 (相対パスなのでこのスクリプトと同じフォルダに置いておくこと)

Dim objInputFile

Set objInputFile = objFSO.OpenTextFile(arg, 1, False, 0)



' 書き出しファイルの指定 (今回は新規作成する)

Dim objOutputFile

Set objOutputFile = objFSO.OpenTextFile("outputText.txt", 2, True)



' 読み込みファイルから1行ずつ読み込み、書き出しファイルに書き出すのを最終行まで繰り返す

Do Until objInputFile.AtEndOfStream

  Dim lineStr

  lineStr = objInputFile.ReadLine

  objOutputFile.WriteLine lineStr

Loop



' バッファを Flush してファイルを閉じる

objInputFile.Close

objOutputFile.Close



'   arrLines = objFile.ReadLine