DemonstrationscriptthatallowsyoutoenterafilenameinaFileSavedialogbox,andthensavesasampletextfile(consistingentirelyofthecurrentdate)underthatfilename.
SupportedPlatforms
WindowsServer2003
No
WindowsXP
Yes
Windows2000
No
WindowsNT4.0
No
Windows98
No
ScriptCode
复制代码 代码如下:
SetobjDialog=CreateObject("SAFRCFileDlg.FileSave")
objDialog.FileName="C:\Scripts\Script1.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
网站建设 IT知识 IT知识教程 Save a File Using a File Save Dialog Box 
最新文章
热门文章
猜你喜欢
