Set BatchHelper = CreateObject( "Lbox.BatchHelper" )

Path = BatchHelper.GetFolderName( "ディレクトリ選択" )
if Path = "" then
	WScript.Quit
end if

WScript.Echo Path

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

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