Save a File Using a File Save Dialog Box-技术开发JavaScript技术-Ubuntu系统_Ubuntu服务器

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

JavaScript技术：Save a File Using a File Save Dialog Box，转载需保留来源！

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。

相关文章阅读