LOTUSSCRIPT/COM/OLE CLASSES

Examples: OrgDirectoryPath property
This agent prepends the organization directory, if any, to a file name.

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