LOTUSSCRIPT/COM/OLE CLASSES
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
Véase también
NotesDbDirectory class
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa