Examples: RemoveAll method

This example deletes all the documents collected by the FTSearch method if the number of documents in the collection does not equal 2.

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