繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Save a File Using a File Save Dialog Box
- Javascript
- jQuery1.3全新的Sizzle引擎实现CSS选择器
- 网页里做异步的跨域请求
- WEBJX收集9个小巧实用的jQuery插件
- JavaScript教程：switch-case
- Javascript代码:校验身份证号程序
- Webjx收集jQuery图片切换效果插件
- JS触发A标签的点击事件
- 把Javascript代码放到body结束之上
- jQuery教程:认识jQuery
- Javascript 验证表单插件
- javascript教程:call方法
- 不同页面中调用JS代码乱码问题
- JavaScript获取事件对象的注意事项
- 非常简单的jQuery实现网页图片圆角
- 史上最昂贵的 Javascript 代码
- 学习JavaScript后的小结
- Javascript教程:caller函数和callee属性
- 解决用户恶意刷新的二级高亮样式菜单
- PS教程:用Photoshop模拟日全食
- JS实例教程:检查变量类型
Javascript 中的 Save a File Using a File Save Dialog Box
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 510 ::
收藏到网摘: 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
