Examples: Database property (NotesUIDatabase - LotusScript)

This example displays the title and path of a database just after it is opened.

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