繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Save a File Using a File Save Dialog Box
- Javascript
- 站长推荐的用js实现的多浏览器支持的图片轮换展示效果ie,firefox
- 用js实现的十进制的颜色值转换成十六进制的代码
- DHTML form validation
- js资料toString 方法
- js资料prototype 属性
- js实现的网站首页随机公告随机公告
- 一个效果写的HashTable代码
- 用js实现的一个Flash滚动轮换显示图片代码生成器
- 关于javascript函数的几个话题
- 极致之美——百行代码实现全新智能语言
- htm调用JS代码
- 斑马线效果代码
- 从新浪弄下来的全屏广告代码 与使用说明
- 用js实现预览待上传的本地图片
- 用javascript自动显示最后更新时间
- 表单提交时自动复制内容到剪贴板的js代码
- 用roll.js实现的图片自动滚动+鼠标触动的特效
- 一段js小代码，计算距春节还有多少天
- js中设计一段程序，让它能够打印自己的方法收集藏
- 自动生成文章摘要的代码[JavaScript 版本]
Javascript 中的 Save a File Using a File Save Dialog Box
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 463 ::
收藏到网摘: 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
