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

関連項目

Database プロパティ

用語集