Gregg Eldred

A Notes user calls to say that when he clicks to expand his Folders in his Inbox, nothing appears. I try it, and get the same result. A look at the design of the mail file shows a "few" folders. I am not counting the number of Folders. A search of developerWorks:Lotus brings me to this code, courtesy of Paul Smerdon:

Dim ns As New NotesSession
Dim db As NotesDatabase
folder% = 0
view% = 0
Set db = ns.CurrentDatabase
Forall v In db.Views
If v.isfolder Then
folder% = folder% + 1
Else
view% = view% + 1
End If
End Forall
Msgbox "There are " & Cstr(folder%) & " folders and " & Cstr(view%)
 & " views in this database"

The result of the agent?



1579 folders might be a problem. Even though there is no error message when trying to expand the Folders view, I think that there might be a memory problem somewhere. I think that the next steps will be the most painful - removing/consolidating folders to a more manageable number.

While I battle the number of folders, I thought that you might like to see some code that counts the number of folders and views in a database. Put the code in the database in question, set it to run on "None," then run it.

Very cool.

Link: Paul Smerdon: Count the no. of views in a database

Technorati tag: SnTT Show-n-Tell Thursday

Comment posted by JYR11/03/2008 10:33:48 PM
Homepage: http://jyriver.blogspot.com/

Hi Gregg,

About the limit related to the number of folders

Folder/View limitation for Notes databases
http://www-01.ibm.com/support/docview.wss?rs=0&uid=swg21097770

also, maximum character length and nesting levels for views and folders
http://www-01.ibm.com/support/docview.wss?rs=0&uid=swg21099040

JYR

---