将符合条件的文档从一个库拷贝到另一个库，并将文档从原库删除，压缩原库

将符合条件的文档从一个库拷贝到另一个库，并将文档从原库删除，压缩原库

 

 Dim db1       As NotesDatabase
 Dim db2       As NotesDatabase 
 Dim dcc       As NotesDocumentCollection
 Dim note      As NotesDocument
 Dim sqlSearch As String
 
 Set db1 = New NotesDatabase("","database1.nsf") 
 Set db2 = New NotesDatabase("" ,"database2.nsf")
 
 
 sqlSearch = "" 
 sqlSearch ="搜索条件"
 
 Set dcc = db1.Search(sqlSearch,Nothing,0) '搜索
 Set note = dcc.GetFirstDocument  
 If dcc.Count=0 Then
  Msgbox("没搜索到文档,退出")
  Exit Sub
 End If
 While Not(note Is Nothing)
  
  Call note.CopyToDatabase(db2)
  Set note = dcc.GetNextDocument(note)
 Wend 
 
 dcc.RemoveAll(True) '删除 
 
 Call db1.Compact '压缩
 Msgbox("完成")