Advertisement
retroman

Untitled

Jul 4th, 2022
902
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 0.26 KB | None
  1. Set objDialog = CreateObject(“UserAccounts.CommonDialog”)
  2. objDialog.Filter = ".io files|*.io”
  3. objDialog.InitialDir = “%userprofile%\desktop”
  4. intResult = objDialog.ShowOpen
  5. If intResult = 0 Then
  6. Wscript.Quit
  7. Else
  8. Wscript.Echo objDialog.FileName
  9. End If
Advertisement
RAW Paste Data Copied
Advertisement