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

関連項目

Type プロパティ

用語集