LOTUSSCRIPT/COM/OLE CLASSES
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