Save a File Using a File Save Dialog Box

2018-09-21 18:55

阅读：678

　　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

上一篇：深入理解Vue 组件之间传值

下一篇：javascript用层模拟可移动的小窗口

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：Save a File Using a File Save Dialog Box
文章链接：http://soscw.com/essay/16647.html

亲，登录后才可以留言！

Save a File Using a File Save Dialog Box

评论

热门文章

推荐文章

最新文章

置顶文章