Examples: GetFirstDatabase method

  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