.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

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

See Also