例: UpdateFTIndex method

  1. 次のスクリプトは、全文索引の更新後にデータベースが変更されている場合に、現在のデータベースの全文索引を更新します。
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Set db = session.CurrentDatabase
    If ( db.LastModified > db.LastFTIndexed ) Then
      Call db.UpdateFTIndex( False )
    End If
  2. 次のスクリプトは、indexme.nsf に全文索引があるかどうかを調べます。全文索引がないときは、スクリプトは索引を作成するかどうかをユーザーに問い合わせます。ユーザーが [はい] を選択すると、スクリプトは索引を作成します。

    次のスクリプトは、ファイル lsconst.lss をインクルードする必要があります。

    Dim db As New NotesDatabase( "", "indexme.nsf" )
    Dim collection As NotesDocumentCollection
    Dim answer As Integer
    If Not ( db.IsFTIndexed ) Then
      answer = Messagebox _
      ( "Do you want to create an index?", MB_YESNO )
      If ( answer = IDYES ) Then
        Call db.UpdateFTIndex( True )
      End If
    End If
    Set collection = db.FTSearch( "blue", 0 )
    '...do something with collection...