例: OrgDirectoryPath property (NotesSession - LotusScript®)

次のエージェントは、組織ディレクトリがある場合には、これをファイル名に付加します。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  org$ = session.OrgDirectoryPath
  filename$ = "Events.nsf"
  If org$ <> "" And Right(org$, 1) <> "¥" Then
    org$ = org$ & "¥"
  End If
  Set db = session.GetDatabase("", org$ & filename$)
  If Not db.Isopen Then
    Messagebox "Cannot open",, org$ & filename$
    Exit Sub
  End If
End Sub