LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim db As NotesDatabase Dim dbdir As New NotesDbDirectory("") n% = 0 Set db = dbdir.GetFirstDatabase(DATABASE) While Not(db Is Nothing) Call db.Open("", "") msg$ = msg$ & db.Title & " (" & db.FileName & ") " & _ GetTypeString(db.Type) & Chr(13) n% = n% + 1 If n% > 16 Then Messagebox msg$,, "Local databases and types" msg$ = "" n% = 0 End If Set db = dbdir.GetNextDatabase Wend If msg$ <> "" Then Messagebox msg$,, "Local databases and types" End If End Sub Function GetTypeString(t As Integer) As String Select Case t Case Dbtype_addr_book : GetTypeString = "Address book" Case Dbtype_imap_svr_proxy : _ GetTypeString = "IMAP server proxy" Case Dbtype_library : GetTypeString = "Library" Case Dbtype_light_addr_book : _ GetTypeString = "Directory catalog (Light Address book)" Case Dbtype_mailbox : GetTypeString = "Mailbox" Case Dbtype_mailfile : GetTypeString = "Mail file" Case Dbtype_multidb_srch : _ GetTypeString = "Multi-database search" Case Dbtype_news_svr_proxy : _ GetTypeString = "News server proxy" Case Dbtype_pers_journal : _ GetTypeString = "Personal journal" Case Dbtype_portfolio : GetTypeString = "Portfolio" Case Dbtype_standard : GetTypeString = "Standard" Case Dbtype_subscriptions : GetTypeString = "Subscriptions" Case Dbtype_web_app : GetTypeString = "Web application" End Select End Function
See Also