Examples: FileFormat property (NotesDatabase - LotusScript)

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