例: Name property (NotesDbDirectory - LotusScript)

次の LotusScript® エージェントはデータベースカタログの名前を取得します。

Sub Initialize
  Dim dbdir As New NotesDbDirectory _
  (Inputbox("Enter name", "Directory name"))
  If dbdir.Name = "" Then
    Messagebox "Local",, "Database directory"
  Else
    Messagebox dbdir.Name,, "Database directory"
  End If
End Sub

次の Visual Basic コードはデータベースカタログの名前を取得します。

Private Sub DbName_Click()
Dim s As New NotesSession
s.Initialize
Dim dir As NotesDbDirectory
Set dir = s.GetDbDirectory(Text1)
If dir.name = "" Then
  MsgBox "Local", , "Directory name"
Else
  MsgBox dir.name, , "Directory name"
End If
End Sub