Examples: NotesDbDirectory class

  1. This LotusScript® agent gets the first database on the server Snapper.
    Sub Initialize
  Dim dbdir As New NotesDbDirectory("Snapper")
  Dim db As NotesDatabase
  Set db = dbdir.GetFirstDatabase(DATABASE)
  Msgbox db.Title, , db.FileName
End Sub
  2. This Visual Basic code using COM gets the first database on the server Snapper.
    Private Sub GetFirst_Click()
Dim s As New NotesSession
s.Initialize
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
Set dir = s.GetDbDirectory("Snapper")
Set db = dir.GetFirstDatabase(NOTES_DATABASE)
MsgBox db.Title, , db.FileName
End Sub