LOTUSSCRIPT/COM/OLE CLASSES
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