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

Set toolkit = CreateObject("Vbsedit.Toolkit")

filepath = toolkit.SaveFileDialog("c:\scripts","test.txt","Text Files (*.txt)|*.txt")

IfNot(IsNull(filepath)) Then
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile(filepath,True)
    objFile.WriteLine Date
    objFile.Close
Else
    Wscript.Quit
EndIf
search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2024 adersοft