Locate a File Using a File Open Dialog Box

答案：Demonstration script that displays a File Open dialog box (open to the folder C:\Scripts), and then echoes back the name of the selected file.  Supported Platforms 

Windows Server 2003 
 No 

Windows XP 
 Yes 

Windows 2000 
 No 

Windows NT 4.0 
 No 

Windows 98 
 No 


Script Code 

复制代码 代码如下:

Set objDialog = CreateObject("UserAccounts.CommonDialog")  

objDialog.Filter = "VBScript Scripts|*.vbs|All Files|*.*"  
objDialog.FilterIndex = 1  
objDialog.InitialDir = "C:\Scripts"  
intResult = objDialog.ShowOpen  

If intResult = 0 Then  
    Wscript.Quit  
Else  
    Wscript.Echo objDialog.FileName  
End If 

上一个：Add a Table to a Word Document
下一个：use jscript Create a SQL Server database