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 プロパティ

用語集