当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Save a File Using a File Save Dialog Box

Javascript
地震发生中逃生十大法则
引用文章链接代码复制自动加链接功能
javascript用层模拟可移动的小窗口
模仿动画的放大缩小容器
li隔行换色效果代码升级版
li隔行换色改进版
弹出提示的效果代码
直接生成打开窗口代码,不必下载
yahoo首页伸缩效果代码
js模拟QQ窗口的抖动效果
Dom加载让图片加载完再执行的脚本代码
js下拉框里超过变成省略号
Javascript模块模式分析
用函数式编程技术编写优美的 JavaScript_ibm
比较不错的函数式JavaScript编程指南教程
javascript程序优化问题
认识延迟时间为0的setTimeout
JavaScript的9个陷阱及评点分析
显示服务器时间的在线时钟代码简单
js几个广告轮换广告代码

Javascript 中的 Save a File Using a File Save Dialog Box


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-12   浏览: 428 ::
收藏到网摘: 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