Save a File Using a File Save Dialog Box

ttx9n

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 

rveqwdpw5

笑纳了老板

feiyasqhr

可以，看卡巴

6q8s6p21

刷刷刷刷刷刷刷刷刷刷刷刷刷刷刷

i3x3r3

这个源码还可以

5cf304mn2

还有人在不。。。。。。。。。。啊

黑白键

vcxvcxv

4k0mp7m

啪啪啪生怕PSP怕

3mfwk4yf

呵呵呵呵呵呵

3pjdk29w

了乐趣了去了去了去了去了