Set BatchHelper = CreateObject( "Lbox.BatchHelper" )

Path = BatchHelper.OpenFileName( _
	"ファイルを開く", _
	"全て,*.*,Excel,*.xls", _
	"C:\TEMP\excel", _
	"xls", _
	"Book1" _
)
if Path = "" then
	WScript.Quit
end if

WScript.Echo Path