例: Count property (NotesDocumentCollection - LotusScript)

次のスクリプトは単語「Business」を含む、コレクションの文書の合計数を示します。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  findString = "Business"
  Set db = session.CurrentDatabase
  Set collection = db.FTSearch (findString,10)
  If collection.Count = 0 Then
    Messagebox "Not found", , _
    "Search for " & findString
  Else
    Messagebox  collection.Count & " documents found", , _
    "Search for " & findString
  End If
End Sub

次のスクリプトは Count と GetNextDocument を使用して、コレクションの各文書をフォルダ [Cellar] に入れます。コレクションは語句「red wine」を含む文書で構成されます。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set collection = db.FTSearch ( "red wine", 0 )
  Set doc = collection.GetFirstDocument ()
  While Not doc Is Nothing
    Call doc.PutInFolder ( "Cellar", True )
    Set doc = collection.GetNextDocument ( doc )
  Wend
  Messagebox collection.Count, , "Documents moved"
End Sub