Save a File Using a File Save Dialog Box

日期:2019-09-07编辑作者:前端科技

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:ScriptsScript1.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 

. SupportedPlatforms WindowsServ...

本文由今晚最快开奖现场直播发布于前端科技,转载请注明出处:Save a File Using a File Save Dialog Box

关键词:

用Javscript完结表单复选框的全选作用

一个比较布满的全选功效,明日在弄后台的时候有看齐,整理了一下。具体: //表达:form1为表单名,mId为复选框,...

详细>>

分词完成代码

% a="日本是中华的三个省|大家雅观中华的乌兰察布!" b="中国,我们,张家界,日本,美国,苹果" b=split(b,",") a=split(a,"|") f...

详细>>

一个用js实现的页内搜索代码

FORM name=search onsubmit="return findInPage(this.string.value);"   INPUT onchange="n = 0;" size=15 name=string value="首相"   INPUT ty...

详细>>

javascript父子通信

script language="javascript" defer="defer" var parent =  {     //     say:function ()     {         //         alert(...

详细>>