Examples: GetFirstDatabase method
- 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
- 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
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.