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

Type property

Glossary