Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Brauche dringend hilfe. Ordner weg nach neuer Replik.

<< < (3/4) > >>

majoo:
@Semeaphoror

Es ist durchaus möglich, dass die DB irgendwann mal von 4 auf 5 konvertiert wurde.

Bei den verschwundenen Ordnern handelt es sich aber um relativ neue.
(ca. 4-6 Wochen alt) Das hat zwar nichts zu sagen, aber verwunderlich ist es schon, da einige ältere Ordner schliesslich problemlos mitgenommen wurden.
Übrigens da sind über 400 Unterordner drin. ...tsss...

Gruß
majoo

TMC:
Holzhammer-Methode wäre vielleicht FolderReferences:
http://www.atnotes.de/index.php?board=26;action=display;threadid=13503

Evtl. das noch in Verbindung mit einem Script, welches die Folder sauber neu erzeugt.

Also:
- Erstmal die FolderRef setzen und die FolderNamen in die Doks schreiben
- Alle Folder bis auf Systemfolder löschen
- Folder neu erzeugen

Sollte ziemlich alles im o.g. BP-Link abgedeckt sein.

Solltest Du aber unbedingt vorher sauber testen. Wer weiss was da für Folder in dem Mailfile rumschwirren von dem User.

**EDIT**
Ich glaube nach nochmaligem Lesen, dass dies gar keine "Holzhammer-Methode" wäre, sondern in der Tat ein gangbarer Weg und ein Beispiel, wo FolderReferences sehr hilfreich sein können.

max.power:
@majoo:

Ich hatte das Problem auch schon mal bei convert bei einer Mail-DB: Einige Ordner weg. Grund: Bei einigen Ordnern - warum auch immer - war im Designer das Hakerl bei "Keine Aktualisierung" NICHT gesetzt. Dadurch werden diese beim wechseln der Schablone mittels convert gelöscht!

Einfach mal nachsehen und die fehlenden Hakerl setzen, dann gibts keine Probleme.
Und wenn nach dem convert einige Unterordner beim Öffnen einen Fehler ausspucken und noch das alte Design haben, so musst Du nur "Aktionen -> Ordnergestaltung aktualisieren" auswählen - brauchst also kein extra Tool...

Good luck!
Max

majoo:
Hallo,

@Max.Power

deine Feststellung kann ich nun bestätigen.

Alle Ordner, bei denen "Keine Aktualisierung" gehakt ist, sind nach convert noch da und die anderen sind weg.

Jetzt brauche ich nur noch eine Lösung, wie ich dises Flag in mehreren Duzend DB's auf ein einmal setzen kann.

thx@all

majoo

Driri:
Hi,

wir haben das vor der Migration der Mail-DBs auf R5 mit folgendem Script erledigt :


--- Code: ---Dim s As New NotesSession
Dim db As NotesDatabase
Dim uniqid As String
Dim count As Integer,count2 As Integer,count3 As Integer,count4 As Integer, count5 As Integer
Dim emaildbs As String
Dim okay, fehler As String
Dim dbPath As String, dbName As String, ViewName As String, ViewArray As String,CorrectedViews As String
   
Set db = s.CurrentDatabase
   
dbPath = db.FilePath
dbName = dbPath
   
While dbPath <> ""
count = 0
count2 = 0
count3 = 0
count4 = 0
count5 = 0
      
CorrectedViews = ""
      
Forall Views In db.Views
If Views.IsFolder Then
ViewName = Views.Name
count = count + 1
               
Print "Prüfung [" & ViewName & "]  ---  ( " & Cstr(count2) & " von "_ & Cstr(count-1) & " Ordnern korrigiert )"
uniqid = Views.UniversalID
Set doc = db.GetDocumentByUNID(uniqid)       
Set flags = doc.GetFirstItem("$Flags")
If ViewName = "($Inbox)" Or ViewName = "($Trash)" Or ViewName_
 = "($Alarms)" Then
If (flags.Text Like "*P*") Then   
Dim flagziel As String
Call FindAndReplace(flags.Text, flagziel, "P", "")
flags.Values = flagziel
Call doc.Save(True, False)
count3 = count3 + 1
End If
Else
If Not (flags.Text Like "*P*") Then
flags.Values = flags.Text & "P"
Call doc.Save(True, False)
count2 = count2+1

CorrectedViews = CorrectedViews & ViewName

Else
count4 = count4+1
End If   
End If
End If
End Forall      
dbPath = ""
Wend
   
Dim text As String
   
text = "Datenbank : " & Cstr(dbName) & Chr$(13) & _
"Es wurden insgesamt " & Cstr(count) & " Ordner geprüft. Davon_
wurden " & Cstr(count2) & " korrigiert." & Chr$(13) & Chr$(13) & _
"Korrigierte Ordner : " & CorrectedViews & Chr$(13) & Chr$(13) & _
"korrigierte Standardordner : " & Cstr(count3)
   
'Dim mdb As New NotesDatabase_
("Server","mail.box")
Dim d As notesdocument
Set d = New notesdocument(db)
d.form = "Memo"
d.Subject = "Ergebnis ProtectAgainstUpdate"
d.Body = text
d.SendTo = "lnadmin"
Call d.send(False)

--- Ende Code ---

Hier noch die Funktion FindAndReplace :


--- Code: ---Function FindAndReplace(Byval Source As String, Target As String,_
 Find As String, Replace As String) As Integer

Dim tmpSubString As String
On Error Goto FindAndReplaceError
Target$ = ""
tmpSubString$ = Source$
positionOfChar& = Instr(1, Source$, Find$ )
While positionOfChar& > 1
Target$ = Target$ & Left$(tmpSubString$, positionOfChar& -1)_
 & Replace$
tmpSubString$ = Right$(tmpSubString$, (Len(tmpSubString$)_
 - positionOfChar& - Len(Find$) + 1))
positionOfChar& = Instr(1, tmpSubString$, Find$ )
Wend
Target$ = Target$ & tmpSubString$
FindAndReplace = True
Exit Function
   
FindAndReplaceError:
Print Error$ & " (ID = " & Cstr (Err) & ", Line = " & Cstr (Erl) & ")", 0, "FindAndReplace"
FindAndReplace = False
Resume EndFunction
EndFunction:
End Function

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete