Set objDialog = CreateObject(“UserAccounts.CommonDialog”)
objDialog.Filter = ".io files|*.io”
objDialog.InitialDir = “%userprofile%\desktop”
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
Wscript.Echo objDialog.FileName
End If