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

関連項目

FileFormat プロパティ

用語集