当前位置：首页 > 资讯 > 技术文档

Save a File Using a File Save Dialog Box

时间：2020-12-04 11:06 编辑：来源：阅读：
扫一扫，手机访问

摘要：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

[u]复制代码[/u] 代码如下:

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 

全部评论(0)

上一篇：详解Backbone.js框架中的模型Model与其集合collection
下一篇：JavaScript forEach()遍历函数使用及介绍

资讯排行榜
更多>>