Examples: RemoveFTIndex method

This agent removes a full-text index from the current database.

Sub Initialize
  Dim session As New Notessession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If db.IsFTIndexed Then
    Call db.RemoveFTIndex()
    Messagebox "Database index removed",, "FT index"
  Else
    Messagebox "Database is not indexed",, "FT index"
  End If
End Sub