Save a File Using a File Save Dialog Box

2020-02-16 分类：首页

标签Tags:save,a,file,using,dialog,box,script,allows,enter,n,ame,saves,sample,text,consisting,entirely,current,date,supported

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 

以上就是【Save a File Using a File Save Dialog Box】的全部内容了,欢迎留言评论进行交流!

Save a File Using a File Save Dialog Box

与本文相关的软件

最新评论