Examples: Type property

This agent gets the type of every database in the local directory.

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