Folder Error 1

[lespaul]

Pascal,

A while back we had this post thread245-1107222 and suddenly the code that you provided which has been working fine starting giving this error message when it reaches the bold line:

Sub EmptyAdminFolder
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim folder As NotesView
 Dim collection As NotesDocumentCollection
 Dim doc as notesdocument
 
 Set db = session.CurrentDatabase
 Set folder = db.GetView("AdminCollection")
 Set doc = folder.getfirstdocument
 If Not(doc Is Nothing) Then
  Set collection = db.AllDocuments
  [b]Call collection.RemoveAllFromFolder( "AdminCollection" [/b])
 End If
End Sub

Notes error: Folder is larger than supported, cannot perform operation. (AdminCollection)

Any ideas why this just broke?

me

 

[Troodos]

Why don't you try this as an alternative:

Dim vecollection as NotesViewEntryCollection
...
...
If Not(doc Is Nothing) Then
Set vecollection = folder.AllEntries
Call vecollection.RemoveAllFromFolder( "AdminCollection" )
End If

The entry 'set collection = db.AllDocuments' can be a bit big for a db with a lot of docs, and based on the code you want to remove the content only from the specified folder, right?

Brgds,

TrooDOS

 

[lespaul]

worked like a charm! Thanks!

Leslie