LOTUSSCRIPT /COM/OLE のクラス

例:FileFormat プロパティ
次のエージェントは、ローカルディレクトリ内のデータベースの 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

関連項目