Examples: Name property (NotesDbDirectory - LotusScript)

1. This LotusScript® agent gets the name of a database directory.

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

2. This Visual Basic code gets the name of a database directory.

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