获取view中所有文档,该如何解决

获取view中所有文档
通过什么方法可以一次性的得到view中的所有的文档，赋给notedocumentcollection？ 希望得到的是该view中的所有的文档，

------解决方案--------------------
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentAgent
Dim view As NotesView
Set view = db.GetView("abc")
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set doc = view.GetFirstDocument
While Not (doc Is Nothing)
Call dc.AddDocument(doc)
Set doc = view.GetNextDocument(doc)
Wend
------解决方案--------------------
[code=VBScript]
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewEntryCollection
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set vc = view.AllEntries
[code]
这个NotesViewEntryCollection有个好处，就是他是排序的
------解决方案--------------------
呵呵，feifan2002，向您请教下，Set vc = view.AllEntries这个可以读到全部的文档啊？
------解决方案--------------------
是的，可以读到，之前有过这么一个需求，需要排序，最终就是用这个实现的