' 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)>=0Then
  WScript.Echo files(0)
Else
  Wscript.Quit
EndIf

search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2022 adersοft