Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "VBScript Scripts*.vbsAll Files*.*"
objDialog.FilterIndex = 1
objDialog.InitialDir = "C:Scripts"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
Wscript.Echo
objDialog.FileName
End If