DemonstrationscriptthatdisplaysaFileOpendialogbox(opentothefolderC:Scripts),andthenechoesbackthenameoftheselectedfile. SupportedPlatforms

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