Mahlzeit!
Ich möchte eine Notes-Kopie einer DB auf einen anderen Server erstellen. Kann ich zwar auch per File -> Database -> New Copy, ist mir aber bei der anzahl an DBs ein wenig zu umständlich.
Die CreateCopy-Methode ist mir zwar bekannt, aber die erstellt eine leere DB. Nun kann ich zwar eine leere DB erstellen und im zweiten Schritt alle Dokumente rüberkippen, aber dann geht z.B. die Einsortierung in Ordner verloren.
Wie kann ihc das anders/besser lösen?
thx in advance
RW
Admin konsole - Replieken erstellen
Wenn Du wirklich ne echte Kopie und keine Replik willst, dann habe ich sowas schon mal gemacht.
Prinzip:
1. leere Kopie mit db.CreateCopy erstellen
2. Dokument für Dokument kopieren und im Kopie-Dokument in ein Feld (ich nenne es mal "OriginalUID") die UniversalID des Original-Dokumentes schreiben
3. alle Ansichten durchgehen und prüfen ob es sich um Ordner handelt (view.IsFolder)
4. ist es ein Ordner, dann alle Documente im Ordner durchgehen, die Dokumente anhand des Feldes "OriginalUID" und der UniversalID des Original-Dokumentes suchen und finden und dem Ordner hinzufügen.
Achtung Code-Schnipsel ist aus einem vorhanden Script und so nicht getestet.
' db_kop ... DB-Kopie
' db_org ... originale DB
Dim db_kop As NotesDatabase
Set db_kop = db_org.CreateCopy(SERVER, DATEINAME)
Dim dc_org As NotesDocumentCollection
Set dc_org = db_org.AllDocuments
Dim doc_org As NotesDocument
Set doc_org = dc.GetFirstDocument
'kopieren der Dokumente
While Not doc_org Is Nothing
Set doc_kop = doc_org.CopyToDatabase( db_kop )
doc_kop.OriginalUID = doc_org.UniversalID
doc_kop.Save True, True, True
Set doc_org = dc_org.GetNextDocument(doc_org)
Wend
' Ordner-Einträge prüfen
Dim ndt As New NotesDateTime("30.12.1899")
Forall v In db_org.Views
If v.IsFolder Then
Set doc_org = v.GetFirstDocument
While Not doc_org Is Nothing
Set doc_kop = db_kop.Search("OriginalUNID=""" & _
doc_org.UniversalID & """", ndt,0)
If Not doc_kop Is Nothing Then
Call doc_kop.PutInFolder(v.Name, True)
End If
Set doc_org = v.GetNextDocument(doc_org)
Wend
End If
End ForallJa und nein.. also ein Repliek kannst du im nachhinein mit viele verschiedene tools dessen repliek ID ändern, und damit relativ einfach einen kopie raus machen..
das ist zwar richtig, aber bevor ich nun wild in systemeigenen Interna rumwürge, lass ich das lieber vom System selbst machen. Das ist mir irgendwie lieber...