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")
If intReturn Then Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile(objDialog.FileName) objFile.WriteLine Date objFile.Close Else Wscript.Quit End If
