Locate a File Using a File Open Dialog Box

WindowsServer2003
No

WindowsXP
Yes

Windows2000
No

WindowsNT4.0
No

Windows98
No

ScriptCode

复制代码 代码如下:
SetobjDialog=CreateObject("UserAccounts.CommonDialog")

objDialog.Filter="VBScriptScripts|*.vbs|AllFiles|*.*"
objDialog.FilterIndex=1
objDialog.InitialDir="C:Scripts"
intResult=objDialog.ShowOpen

IfintResult=0Then
Wscript.Quit
Else
Wscript.EchoobjDialog.FileName
EndIf