例: FileFormat property (NotesDatabase - LotusScript)

次のエージェントは、ローカルディレクトリ内のデータベースの ODS のバージョンを取得します。

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