Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "全て|*.*|テキスト|*.txt"
objDialog.InitialDir = "C:\"
nRet = objDialog.ShowOpen
 
if nRet = 0 then
	Wscript.Quit
End If

WScript.Echo objDialog.FileName