LOTUSSCRIPT /COM/OLE のクラス

例:RemoveAll メソッド
次の例はコレクション内の文書数が 2 以外であれば FTSearch メソッドで集められたすべての文書を削除します。

Sub Click(Source As Button)
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim collection As NotesDocumentCollection

Set db = session.CurrentDatabase
 Set collection = db.FTSearch("Annual reports", 10)
 If collection.Count <> 2 Then
   Call collection.RemoveAll(False)
 End If
End Sub

関連項目