LOTUSSCRIPT/COM/OLE CLASSES
Examples: Count property
1. This script displays the total number of documents in the collection containing the word "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
2. This script uses Count and GetNextDocument to put every document in a collection into a folder called Cellar. The collection consists of documents containing the phrase "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
See Also
Count property
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary