作家
登录

Save a File Using a File Save Dialog Box

作者: 来源:www.28hudong.com 2013-03-30 03:25:09 阅读 我要评论

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:ScriptsScript1.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

  推荐阅读

  List all the Databases on a SQL Server

List all the Databases on a SQL Server. Supported Platforms SQL Server 2000 Yes Script Code strDBServerName = "." Set objSQLServer = CreateObject("SQLDMO.SQLServer") objSQLServer.LoginSecure = True>>>详细阅读


本文标题:Save a File Using a File Save Dialog Box

地址:http://www.17bianji.com/kaifa2/JS/30341.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)