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

Javascript
js实现图片显示局部,鼠标经过显示全部的效果
Javascript 更新 JavaScript 数组的 uniq 方法
JavaScript 数组的 uniq 方法
js菜单代码js菜单特效代码
用dom+xhtml+css制作的一个相册效果代码打包下载
Javascript优化技巧(文件瘦身篇)
ImageFlow可鼠标控制图片滚动
js实现form自动完成功能
js 生成随机汉字的问题
一个js封装的不错的选项卡效果代码
setInterval 和 setTimeout会产生内存溢出
setAttribute 与 class冲突解决
window.addeventjs事件驱动函数集合addEvent等
javascript replace方法与正则表达式
js 替换
javascript下利用for( in )语句 获得所有事件名称的代码
javascript下用for( in )语句 获得所有style 内容的脚本代码
javascript下for( in )语句 获得所有style 的【scrollbar】滚动条样式内容
javascript创建数组的最简代码
中国象棋js代码,仅演示,未能真下

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


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