繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Save a File Using a File Save Dialog Box
- Javascript
- javascript 函数介绍
- 超酷的鼠标拖拽翻页(分页)效果实现javascript代码
- 关于Javascript中的事件--Event对象
- js+css图片自动等比例缩小且垂直居中
- 输入法下keyup失效的解决方案
- 关于初次学习Ajax的一些心得
- 可以不被浏览器拦截的弹出窗口JS代码
- 网页设计常用的Javascript特效代码
- XMLHTTPRequest的属性和方法
- 微软、Mozilla舌战新版JavaScript发展
- 网页制作中常用的几段小Javascript代码
- Ajax是建立Web应用的一条新途径
- AJAX学习:理解JavaScript函数
- javascript下的正则表达式基本书写
- 学习 javascript 注意的4个问题
- javascript正则表达式的常用方法总结
- 初学者全面接触学习jquery(译文)
- 用Ajax和Web2.0扩展SOA
- 使用 jQuery 简化 Ajax 开发
- 关于clientHeight、offsetHeight、scrollHeight
Javascript 中的 Save a File Using a File Save Dialog Box
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 548 ::
收藏到网摘: 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
