Mappe private on first use

Et TRÆLS problem ved mapper der er private on first use er at man ikke kan ændre designet centralt.


Defor troede jeg at nedenstående kode ville slette den gamle private mappe, og derefter oprette en ny
mmmeen det gør den tilsyneladende ikke, den sletter men opretter ikke en ny (måske pga en tidsforsinkelse mellem sletning og oprettelse ????)

%REM
Sørger for at den private mappe "Soegeres" oprettes første gang databasen benyttes.
Virker vha. et profildokument
%END REM
Sub Postopen(Source As Notesuidatabase)
    Dim view As NotesView
    Dim workspace As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim pro As Variant
    Dim user As String
    Set db = session.CurrentDatabase
    user = session.UserName   
    Set doc=db.GetProfileDocument("vr profil", user)
    mappe = doc.mappe
   
    'Dette afsnit har til formål at slette den private mappe, så der kan laves en ny med de nye egenskaber.
    'Det må kun afvikles hvis der forefindes en privat mape.
    If (mappe(0) = "Ja") Then    'Hvis mappe findes, skal den slettes så der kan laves en ny privat mappe, med nye egenskaber.
          Set view = db.GetView( "Soegeres" )
          Call view.Remove
          mappe(0) = ""
          doc.mappe = mappe
          Call doc.Save(True,False)
          Msgbox " Slettet"
    End If
         
    If (mappe(0) <> "JaJa") Then    'Mappe er Ja, hvis mappe er privat/brugt før.
          mappe(0) = "JaJa"
          doc.mappe = mappe
          Call doc.Save(True,False)
          Call Source.OpenView("Soegeres")
          Call workspace.OpenDatabase("","","værktøj")
          Msgbox " Gendannet"
    End If
End Sub

Mappe(0) er på forhånd = "Ja" hvis bruger har den som privat mappe.



Det jeg søger er en metode til først at slette den 'gamle' private mappe, og derefter oprette den igen - ud fra skabelonen.