I have a db that had several replication conflicts in it. I have manually deleted all the conflicts. The propertybox of the db shows that it contains 170.000 documents. When I selects all doc’s in the db i see that it contains only 3700. I suggest that all the others (166.300 !!!) is conflict that I do not see??
How can I get rid of all this conflicts?
I’ve tried making an agent running on all doc’s in the db, but it does not help. See code under.
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
End Sub