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