例: サーバーとローカルに保存されているデータベースを検索する

次の例では、ローカルの 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