このボタンは、現在のデータベースのタイトルとパスを表示します。
Sub Click(Source As Button) Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Messagebox db.Title,, db.FilePath End Sub