删除数据库中的复制存储冲突文档

Sub Initialize  Dim session As New NotesSession  Dim db As NotesDatabase  Dim view As NotesView  Dim doc As NotesDocument  Dim entry As NotesViewEntry  Set db = session.CurrentDatabase  Dim Vec As notesViewEntryCollection    j=1  Set view = db.GetView( "ALL$" )  Set vec = view.AllEntries  Set entry = vec.GetNthEntry( j )  Set doc = entry.Document    While Not (doc Is Nothing)   If entry.isconflict = True Then    Call doc.remove(True)   End If      j=j+1   Set entry = vec.GetNthEntry( j )   If entry Is Nothing Then    Exit Sub   End If   Set doc = entry.Document  Wend    Msgbox db.Title & "delete conflict docs finished!" End Sub