繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Save a File Using a File Save Dialog Box
- Javascript
- [原创]js 日期加红代码 适用于各种cms
- [原创]javascript 改变字体大小方法集合
- jsTree树控件(基于jQuery, 超强悍)[推荐]
- 修改jQuery.Autocomplete插件 支持中文输入法 避免TAB、ENTER键失效、导致表单提交
- jQuery live( type, fn ) 委派事件实现
- javascript createElement()创建input不能设置name属性的解决方法
- Jquery 表单取值赋值的一些基本操作
- jquery select选中的一个小问题
- 网页里控制图片大小的相关代码
- 网页常用特效代码整理
- 网站上面有这种切换效果
- tagName的使用，留一笔
- 图片按比例缩放函数
- 非常好的js代码
- 精彩图片推荐 渐隐渐现
- 左右图片循环滚动停顿一下后继续
- popdiv
- 奇妙的Javascript图片放大镜
- 怎么用javascript进行拖拽
- 一个表格收缩展开的函数
Javascript 中的 Save a File Using a File Save Dialog Box
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 477 ::
收藏到网摘: 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
