次のスクリプトはコレクションがソートされているかどうかを調べます。コレクションは FTSearch メソッドで作成されるため、IsSorted プロパティは True に設定されます。スクリプトはダイアログボックスに「This collection is sorted」を表示します。
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( "white wine", 0 )
If collection.IsSorted Then
Messagebox( "This collection is sorted" )
Else
Messagebox( "This collection is unsorted" )
End If
End Sub