繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Save a File Using a File Save Dialog Box
- Javascript
- 一个多浏览器支持的背景变暗的div并可拖动提示窗口功能的代码
- CSS也可以把IE6弄死
- ibm官方资料把应用程序从 Internet Explorer 迁移到 Mozilla
- JavaScript修改css样式style
- ext for eclipse插件安装方法
- JavaScript对象模型-执行模型
- 定义select的边框颜色
- js放大镜放大图片效果
- javascript+css好多网站用的选星星实现打分功能的函数
- javascript双向放大缩小广告代码
- javascript四个方向无间隙滚动合集(多浏览器IE,firefox兼容)
- Js的MessageBox效果代码
- 页面下沉抖动效果-网站HTTP连接没有效果-PC上有效果
- javascript图片渐显效果代码
- 使用jquery给input和textarea设定ie中的focus
- 用JS实现一个页面多个css样式实现
- 用javascript做拖动布局的思路
- javascript搜索自动提示功能的实现
- 多浏览器兼容的qq图片轮换效果javascript代码
- javascript 建设银行登陆键盘
Javascript 中的 Save a File Using a File Save Dialog Box
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 447 ::
收藏到网摘: 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
