例: IsLink property (NotesDatabase - LotusScript®)

次のエージェントは、ローカルディレクトリ内にあるリンクされたすべてのデータベースのパス名を取得します。

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