LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsLink property
This agent gets the path names of all linked databases in the local directory.

Sub Initialize
 Dim dbdir As New NotesDbDirectory("")
 Dim db As NotesDatabase
 Set db = dbdir.GetFirstDatabase(DATABASE)
 While Not(db Is Nothing)
   If db.IsLink Then
     msg$ = msg$ & db.FilePath & Chr(13)
   End If
   Set db = dbdir.GetNextDatabase()
 Wend
 If msg$ = "" Then msg$ = "None"
 Messagebox msg$,, "Database links"
End Sub

See Also