Upgrading folder design in the Team Mailbox

HCL Domino Domino Forum
1

I have replaced design on a test copy of one of our mail-in databases to the Team Mailbox (alcsbox.ntf), and then went to Upgrade Folder Design, which worked fine on the folders, however none of the subfolders were altered. I have tried replacing design again, checking and unchecking the prohibit design refresh box, etc. Any help is greatly appreciated.

Thanks

2

Subject: Upgrading folder design in the Team Mailbox

You’re correct. I never noticed the problem with “Upgrade Folder Design” and nested-folders. I forgot that LotusScript reports a view/folder name as “Folder1\Folder2”, however the Evaluate function must have the \ characters escaped. It needs \ instead of \

This corrects the problem:

folderName = Replace( folderName, "", “\” )

I updated the template.

3

Subject: Upgrading folder design in the Team Mailbox

I ended up writing my own agent to just upgrade the subfolders similar to something I found in a discussion. the agent creates new folders which pick up the new design, tranfers docs from the original, deletes the original, and renames the new to the original name:

Dim s As New notesSession

Dim uiw As New notesUIWorkspace

Set db = s.CurrentDatabase



On Error Goto ErrorHandler



views = db.Views

Forall v In views

	If v.IsFolder Then

		

		If Instr(v.Name, "\") Then

			

			sFolderOrig = v.name

			

			Print "Upgrading " & sFolderOrig & " ..."

			

			sFolder = v.name + "--TempCopy"

			

			Call db.EnableFolder(sFolder)

			

			Set vc = v.AllEntries

			Call vc.PutAllInFolder(sFolder)

			

			Call v.Remove

			

			Set view = db.GetView(sFolder)

			Set docFolder = db.GetDocumentByUnid(view.UniversalID)

			Call docFolder.ReplaceItemValue("$Name", sFolderOrig)

			Call docFolder.ReplaceItemValue("$TITLE", sFolderOrig)

			Call docFolder.save(True,False)

		End If

	End If

End Forall



Print ""

Msgbox "Complete!",0+64, "Lotus Notes"

Exit Sub

ErrorHandler:

Print ""

Msgbox "Error: " & Error$ & " on line " & Cstr(Erl)

Exit Sub