繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Save a File Using a File Save Dialog Box
- Javascript
- Mootools 1.2教程 排序类和方法简介
- Mootools 1.2 手风琴（Accordion）教程
- Mootools 1.2教程 类(一)
- Mootools 1.2教程 Tooltips
- Mootools 1.2教程 选项卡效果（Tabs）
- Mootools 1.2教程(21)：类（二）
- Mootools 1.2教程 同时进行多个形变动画
- Mootools 1.2教程 滑动效果（Slide）
- 不安全的常用的js写法
- javascript 检测浏览器类型和版本的代码
- javascript 弹出层居中效果的制作
- javascript 遮照层效果
- Javascript createElement和innerHTML增加页面元素的性能对比
- 颜色快速采集器javascript代码
- var与Javascript变量隐式声明
- javascript 面向对象编程 万物皆对象
- jQuery 事件队列调整方法
- JavaScript switch case 的用法实例[范围]
- 控制input的CSS但不影响CheckBox以及Radio的样式
- ext 同步和异步示例代码
Javascript 中的 Save a File Using a File Save Dialog Box
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 488 ::
收藏到网摘: 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
