Save a File Using a File Save Dialog Box

2024-09-06 12:42:08

字体：大中小

来源：转载

供稿：网友

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

上一篇：用js实现控制内容的向上向下滚动效果

下一篇：Stop SQL Server