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