' Locate Multiple Files 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",True,"Open a text file")
If UBound(files)>=0Then
  ForEach filepathIn files
    WScript.Echo filepath
  Next
Else
  Wscript.Quit
EndIf
search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2024 adersοft