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
次のスクリプトは、ファイル 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...