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