HCL Domino - Examples: Count property - Need a Domino Consultant? Call NotesMail +1 212-599-2048

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

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

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help

All Help Contents