Delete Documents Quick way

HCL Domino Domino Forum
1

Hi, I tried to delete documents(100,000) using folowing code but it is very very slow. Is there any other way to delete docs faster …

Thank you

DRK

Dim session As New NotesSession

Dim db As Notesdatabase

Set db = session.CurrentDatabase

Dim View As NotesView 

Dim doc As NotesDocument 

Dim NextDoc As NotesDocument

Set View=Db.GetView("(Main)") 

Set doc=View.GetFirstDocument 

While Not doc Is Nothing 

	Set NextDoc = view.GetNextDocument( doc )		

	doc.Remove(True) 

	Set doc=NextDoc

Wend

End Sub

2

Subject: Delete Documents Quick way

Try using the NotesViewEntryCollection class along with the RemoveAll method.

3

Subject: RE: Delete Documents Quick way

Could you please give me the code

Thank you

4

Subject: RE: Delete Documents Quick way

Jenn, I got it…Thank you

DRK

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("viewToBeDeleted")

Set vc = view.GetAllEntriesByKey("Key")

Call vc.RemoveAll(True)
5

Subject: RE: Delete Documents Quick way

Is it faster? You could put a timer on it to see how many seconds elapse from start to finish. Just a thought if you have the time. :slight_smile:

Thanks,

MaryJane Johnson.