例: Database property (NotesUIDatabase - LotusScript)

次の例は、開かれた直後にデータベースのタイトルとパスを表示します。

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