高速的把一个view中的所有文档copy到另一个view中

快速的把一个view中的所有文档copy到另一个view中
lotus notes 如何快速的把一个view中的所有文档copy到另一个view中，这两个view不在同一个数据库。我就是想实现备份这个view下面数据的功能。

------解决方案--------------------
视图上做个按钮，写代码:选中的文档全部copy到另外一个数据库。
循环选中的doc(
Dim db As New NotesDatabase( "x", "y" )
Call doc.CopytoDatabase(db)
)