DeniedFolderItems macro

[mizunderstood]

I'm trying to run a macro that would list the user class and the 'Denied Folders' for them. I'm basically using the 'Content Overview' macro sample. Just took out everything else but the main procedures that would list the Denied Folders.

It runs but it stops at one user class and I get this error msg: "Invalid Index Value". When I play around with a copy of our catalog with that one user class removed (completely deleted), the macro runs further down the user class list but stops again at another user class. I remove that user class and then the macro runs with no errors.

So, what's the deal? Although, I have the list for all the other user classes, it would be nice to have it run my entire list. Is it possible? Cognos Support was not much of help. They actually don't know why it's doing it... Any ideas?

Here's the main part of the macro...

''''''
Sub UserClassInfo(PassedClass As Object)
With PassedClass
Print #g_filenumber, g_tab + "User Class: " + .Name
End with
End sub

'~~~~~~~~~~~~~~~~~~~
Sub TraverseUserClass(PassedClass As Object)
'declare procedure level variables
Dim UserClass As Object
Dim counter as Integer
Set UserClass = PassedClass.UserClasses
For counter = 1 To UserClass.Count
Call UserClassInfo(UserClass(counter))
Print #g_filenumber, "Deny access: " & UserClass.DeniedFolderItems.Name
Next counter
End Sub