例: RemoveAll method

次の例はコレクション内の文書数が 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