Domino Code Fragment

Code Name*
Update the full text index of the current database.		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.18.116.40.177
Description*
This script updates the full text index of the current database if the database has been modified since the time the index was updated.		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Only works for Local Databases, Notes returns an error if you attempt to create a full text index on a database that is not local.
Files/Graphics attachments (if applicable): Code:
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