繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Save a File Using a File Save Dialog Box
- Javascript
- 代码生成器 document.write()
- 不错的文字特效，逐字变色效果
- javascript下用键盘控制层的移动的代码
- 有提示确定与取消功能的弹出式窗的代码
- js下弹出窗口的变通
- 在第一个input框内输入内容.textarea自动得到第一个文件框的值的javascript代码
- 用JAVASCRIPT如何给<textarea></textarea>赋值
- 将光标定位到textarea的某一行的javascript代码
- 把textarea中字符串里含有的回车换行替换成<br>的javascript代码
- 让textarea控件的滚动条怎是位与最下方
- 用javascript实现改变TEXTAREA滚动条和按钮的颜色，以及怎样让滚动条变得扁平
- 在textarea中屏蔽js的某个function的javascript代码
- textarea的value是html文件源代码,存成html文件的代码
- 在textarea中显示html页面的javascript代码
- 用javascript将数据库中的TEXT类型数据动态赋值到TEXTAREA中
- 如何做到打开一个页面，过几分钟自动转到另一页面
- JS 建立对象的方法
- 运用Windows XP附带的Msicuu.exe、Msizap.exe来彻底卸载顽固程序
- JS Timing
- 用javascript实现图片马赛克后显示并切换
Javascript 中的 Save a File Using a File Save Dialog Box
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 260 ::
收藏到网摘: 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
