当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Save a File Using a File Save Dialog Box

Javascript
jQuery在IE中解释XML要注意的问题
JavaScript学习笔记:创建对象和构造类
JS学习笔记:Javascript类的继承
Javascript学习笔记:错误处理
JS学习笔记:防止发生命名冲突
怎么让网页全屏显示?
JS教程:addDOMLoadEvent事件
MooTools教程(告诉你为什么学Mootools)
选择mootools的5个原因
js教程:JavaScript作用域(Scope)
JS教程:日期格式转换函数
JavaScript中的Function对象
JS教程:理解JavaScript闭包
window.location.href出问题分析思路
JS教程:javascript获取页面属性
Webjx收集jQurey模式窗口的网页设计实例
现代网页设计时尚:网页中对话框窗口
概念网站实例:所有网页都在一个网页里
JS教程:鼠标悬停文字上显示图片
网页内容切换效果实现的15个jQuery插件

Javascript 中的 Save a File Using a File Save Dialog Box


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-12   浏览: 528 ::
收藏到网摘: n/a

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