繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Save a File Using a File Save Dialog Box
- Javascript
- Web层改进II-用xmlhttp 无声息提交复杂表单
- 用ADODB.Stream转换
- html读出文本文件内容
- 自适应高度框架 ----属个人收藏内容
- Maps Javascript
- JAVASCRIPT HashTable
- 一页面多XMLHttpRequest对象
- 网页javascript精华代码集
- 判断浏览器的js代码
- JS判断浏览器之Navigator对象
- 用js自动判断浏览器分辨率的代码
- 用JavaScript和注册表脚本实现右键收藏Web页选中文本
- 判断页面是关闭还是刷新的js代码
- WebGame《逆转裁判》完整版 代码下载(1月24日更新)
- 叠加计算出错的解决方法
- 一个轻量级的XHTML右键菜单[支持IE和firefox]
- 一些易混淆且不常用的属性，希望有用
- 网易首页的新闻代码
- Flash对联广告的关闭按钮讨论
- 用JS获得表格当前行数的代码
Javascript 中的 Save a File Using a File Save Dialog Box
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 291 ::
收藏到网摘: 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
评论 (0) All
