繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Save a File Using a File Save Dialog Box
- Javascript
- [JS源码]超长文章自动分页（客户端版）
- 注意 JavaScript 中 RegExp 对象的 test 方法
- JavaScript快速排序
- 写的一段拖动对象的代码
- 用js取得鼠标所在位置的对象
- 如何在一段文字里点一下就可以在里面插入一段文字？
- 用js+cookie记录滚动条位置
- 记录滚动条位置（使用userdate）
- 强效、方便的表单通用检测JS 不错
- 个人总结的一些关于String、Function、Array的属性和用法
- 数据排序谁最快(javascript中的Array.prototype.sort PK 快速排序)
- Prototype最新版(1.5 rc2)使用指南(1)
- Prototype使用指南之string.js
- Prototype使用指南之base.js
- Prototype使用指南之enumerable.js
- Prototype使用指南之array.js
- Prototype使用指南之range.js
- Prototype使用指南之ajax
- Prototype使用指南之dom.js
- Prototype使用指南之selector.js
Javascript 中的 Save a File Using a File Save Dialog Box
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 302 ::
收藏到网摘: 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
