Example: Locating a database on a server and local disk

This example prints the names of all the NSF files in the local Domino® data directory. To find different types of files, you can alternatively specify DATABASE, TEMPLATE, REPLICA_CANDIDATE, or TEMPLATE_CANDIDATE as the argument to the GetFirstDatabase method.

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