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

関連項目