Option Explicit

'On Error Resume Next



'CSV結合Excel変換スクリプト(医療機関NW用)

'ドラック＆ドロップされたCSVファイルを結合、Excelに変換する





'引数を取得

Dim args, arg, strArg, argNum

Set args = Wscript.Arguments

'引数の数を確認

argNum = args.Count

'引数が１つもなければ

If argNum = 0 Then

	'スクリプトを終了

	Wscript.Echo "CSV結合Excel変換スクリプト" & vbCrLf & vbCrLf & "このツールは、" & vbCrLf & _

					"複数のCSVファイルを結合してExcelファイルに変換します。" & vbCrLf & _

					"対象のCSVファイルが一つの場合は、Excelファイルへの変換のみを行います。" & vbCrLf & vbCrLf & _

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

	Wscript.Quit

End If



If WScript.Name="Windows Script Host" Then

	WScript.Echo (WScript.Name)

	WScript.Echo (wscript.scriptfullname)

	

	For I = 0 to args.Count - 1

		strArg=strArg & " " & args(I)

	Next

	

	strArg= "cscript.exe " & """" & wscript.scriptfullname & strArg & """"

	WScript.Echo strArg

	createobject("wscript.shell").run(strArg)



	Wscript.Quit

End If