Examples: 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