LOTUSSCRIPT/COM/OLE CLASSES
Sub Postopen(Source As Notesuidatabase) Dim db As NotesDatabase Set db = Source.Database Messagebox "Title: " & db.Title & Chr(10) & _ "Path: " & db.FilePath,, "Database opened" End Sub
See Also