Save a File Using a File Save Dialog Box
发布时间：2016-12-30 来源：查字典编辑
摘要：DemonstrationscriptthatallowsyoutoenterafilenameinaFileSavedialogbox,a...
DemonstrationscriptthatallowsyoutoenterafilenameinaFileSavedialogbox,andthensavesasampletextfile(consistingentirelyofthecurrentdate)underthatfilename.
SupportedPlatforms
WindowsServer2003
No
WindowsXP
Yes
Windows2000
No
WindowsNT4.0
No
Windows98
No
ScriptCode
复制代码 代码如下:
SetobjDialog=CreateObject("SAFRCFileDlg.FileSave")
objDialog.FileName="C:ScriptsScript1.vbs"
objDialog.FileType="VBScriptScript"
intReturn=objDialog.OpenFileSaveDlg
IfintReturnThen
SetobjFSO=CreateObject("Scripting.FileSystemObject")
SetobjFile=objFSO.CreateTextFile(objDialog.FileName)
objFile.WriteLineDate
objFile.Close
Else
Wscript.Quit
EndIf