Locate a File Using a File Open Dialog Box








' Locate a File Using a File Open Dialog Box (using Vbsedit's free Toolkit)

Set toolkit = CreateObject("VbsEdit.Toolkit")
files=toolkit.OpenFileDialog("c:\scripts\","Text Files (*.txt)|*.txt",False,"Open a text file")
If UBound(files)>=0 Then
  WScript.Echo files(0)
Else
  Wscript.Quit
End If




search for scripts

VbsEdit contains all these sample scripts!

Download Now!