
DATABASE
List Dbs On A Server That Are Templates
Jeff Blackadar 06.14.2000
Rating: -4.00- (out of 5)




This is an agent that creates a text list of databases which are also design templates with their template names. This is to help resolve template name conflicts and clean up old design templates from a server.
Code
'DB is a template (list)|DbIsTempNames: Option Public Option Declare Sub Initialize ' Creates a textfile list of databases that are templates for a server Dim counter% Dim filenum As Integer filenum = Freefile() Dim DbDir As NotesDBDirectory Dim session As New notessession Dim servername As String servername = Inputbox("Server name","Input the server name.","NATS7/CMHC-SCHL/CA") Set DbDir = session.GetDbDirectory( servername ) Open "DbProps.txt" For Output As #filenum Print #filenum, "Only databases that are templates on this server are listed" Print #filenum,servername Print #filenum, pad("filename", 20) & pad("title", 30) & pad("Design Template Name (Is Template)", 40
To continue reading for free, register below or login
To read more you must become a member of SearchDomino.com
');
// -->

) & pad("filepath", 60) Dim db As notesdatabase Set db = DbDir.getfirstdatabase(TEMPLATE_CANDIDATE) Do Until db Is Nothing Print db.filename If Not Cstr(db.TemplateName)="" Then Print #filenum, pad(db.filename, 20) & pad(db.title, 30) & pad(Cstr(db.TemplateName), 40) & pad(Cstr(db.filepath), 60) End If Set db = DbDir.getnextdatabase Loop Close #filenum 'open Notepad with the textfile - only works on Windows Dim taskid% taskid% = Shell("notepad.exe DbProps.TXT",1) End Sub Function pad(word As String, width1 As Integer) ' this function is just to format text on the report Dim prepad As String Dim padcount As Integer prepad = Left(word + String(width1, " "),width1) For padcount = 1 To Len(prepad) If Mid(prepad,padcount,1)={"}Then Mid(prepad,padcount,1)={ } End If Next pad = prepad End Function
 |

|
|
 |
|
 |