LOTUSSCRIPT /COM/OLE のクラス

例:サーバーとローカルに保存されているデータベースを検索する
次の例では、ローカルの Domino データディレクトリにあるすべての NSF ファイルの名前を出力します。GetFirstDatabase メソッドの引数として、DATABASE、TEMPLATE、REPLICA_CANDIDATE、TEMPLATE_CANDIDATE を指定することによって、別の種類のファイルを検索できます。

Sub Initialize
Dim dbdir As New NotesDbDirectory("")
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
While Not(db Is Nothing)
Messagebox db.Title
Set db = dbdir.GetNextDatabase
Wend
End Sub

関連項目