Examples: Clone method (NotesViewEntryCollection - LotusScript®)

This agent displays the number of documents in a NotesViewEntryCollection of read documents, makes a clone of the collection, and counts the number of documents in the cloned collection.

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim vec1 As NotesViewEntryCollection
  Dim vec2 As NotesViewEntryCollection
  Set db = session.CurrentDatabase
  Set view = db.GetView("All")
  view.AutoUpdate = False
  Set vec1 = view.GetAllReadEntries()
  Messagebox vec1.Count,, "Original read documents"
  Set vec2 = vec1.Clone()
  Messagebox vec2.Count,, "Cloned documents"
End Sub