.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

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