Set BatchHelper = CreateObject( "Lbox.BatchHelper" )

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

WScript.Echo Path