LOTUSSCRIPT /COM/OLE のクラス

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

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

関連項目