In HCL Notes, you can create Private Folders when ACL access rights permits it.
When moving over to HCL Verse, you cannot see those Private Folders because they are stored in you client locally in the desktop.ndk database.
Here is a script which you can deploy to your clients in order to move Private Folders to Shared Folders and delete the empty ones. After running this script, you can see the Private Folders again in HCL Verse.
Option Public
Option Declare
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entries As NotesViewEntryCollection
Dim str_foldername As String
Dim iConvert As Integer
Dim iDelete As Integer
iConvert = 0
iDelete = 0
ForAll folder In session.CurrentDatabase.Views
If Not IsEmpty(folder.Readers) And folder.IsFolder Then
str_foldername = folder.Name
Set entries = folder.AllEntries
if entries.count = 0 Then
Print “Removing empty folder … ” + str_foldername
Call folder.Remove
iDelete = iDelete + 1
Else
Print “Converting … ” + str_foldername
Call entries.PutAllInFolder(str_foldername & “temp”, True)
Call folder.Remove
Set view = session.CurrentDatabase.GetView(str_foldername & “temp”)
view.Name = str_foldername
iConvert = iConvert + 1
End If
End If
End ForAll
MessageBox CStr(iDelete) + ” empty private folders have been removed.”
MessageBox CStr(iConvert) + ” private folders have been updated.”
MessageBox “Your mail file will now be closed so the changes can take effect.”, 64, “Update Complete”
Call ws.CurrentDatabase.Close
End Sub
Views: 1001