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
1/2 1