Save a File Using a File Save Dialog Box

Demonstration script that allows you to enter a file name in a File Save dialog box, and then saves a sample text file (consisting entirely of the current date) under that file name. 

Supported Platforms

Windows Server 2003
 No

Windows XP
 Yes

Windows 2000
 No

Windows NT 4.0
 No

Windows 98
 No

Script Code

Set objDialog = CreateObject("SAFRCFileDlg.FileSave")  objDialog.FileName = "C:\Scripts\Script1.vbs"  
objDialog.FileType = "VBScript Script"  
intReturn = objDialog.OpenFileSaveDlg  
If intReturn Then  
    Set objFSO = CreateObject("Scripting.FileSystemObject")  
    Set objFile = objFSO.CreateTextFile(objDialog.FileName)  
    objFile.WriteLine Date  
    objFile.Close  
Else  
    Wscript.Quit  
End If