Save a File Using a File Save Dialog Box








' 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")

If Not(IsNull(filepath)) Then
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile(filepath,True)
    objFile.WriteLine Date
    objFile.Close
Else
    Wscript.Quit
End If



search for scripts

VbsEdit contains all these sample scripts!

Download Now!