Set BatchHelper = CreateObject( "Lbox.BatchHelper" )

Path = BatchHelper.OpenFileNames( _
	"複数ファイルを選択", _
	"全て,*.*,Excel,*.xls", _
	"C:\TEMP\excel", _
	"xls" _
)
if Path = "" then
	WScript.Quit
end if

aPath = Split( Path, vbTab )
For I = 0 to Ubound( aPath )
	WScript.Echo aPath(I)
Next