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 プロパティ