LOTUSSCRIPT/COM/OLE CLASSES

Examples: FileFormat property
This agent gets the ODS version of the databases in the local directory.

Sub Initialize
 Dim session As New NotesSession
 Dim dbdir As New NotesDbDirectory("")
 Dim db As NotesDatabase
 Set db = dbdir.GetFirstDatabase(DATABASE)
 While Not(db Is Nothing)
   Call db.Open("", "") ' Database must be open
   Messagebox "ODS version = " & db.FileFormat,, db.Title
   Set db = dbdir.GetNextDatabase
 Wend
End Sub

See Also