12 Archive zu einem Archiv zusammenführen

[Schwalli]

Hallo zusammen,

ich habe hier 12 Archivdateien (.nsf) die ich gerne zu einer Archivdatei zusammenfügen möchte.

Gibt es hierfür eine einfache Möglichkeit?
Möchte ungern alle Archive manuell öffnen und die Dokumente hin und her kopieren.

Vielen Dank

[Peter Klett]

In einem anderen Beitrag gestern hatte ich ein Script eingestellt, das das kann. Hier eine kleine Abwandlung davon, bei der die Kopie die UniversalID des Originals bekommt, damit das Erstelldatum unverändert bleibt:

Dim dbquelle As New NotesDatabase ("server", "dateinamequelle")
Dim dbziel As New NotesDatabase ("server", "dateinameziel")
Dim colquelle As NotesDocumentCollection
Dim docquelle As NotesDocument
Dim docziel As NotesDocument
Set colquelle = dbquelle.AllDocuments
Set docquelle = colquelle.GetFirstDocument
Do While Not docquelle Is Nothing
  Set docziel = New NotesDocument (dbziel)
  Call docquelle.CopyAllItems (docziel)
  docziel.UniversalID = docquelle.UniversalID
  Call docziel.Save (True, True)
  Set docquelle = colquelle.GetNextDocument (docquelle)
Loop

Das könntest Du Dir so umbauen, dass innerhalb einer Schleife alle 12 Quelldatenbanken verarbeitet werden.

[ascabg]

Hallo,

Ich stelle mir gerade folgende Frage.

Koennte man nicht einfach in 11 Datenbanken die 12. Db als "Archiv-Datenbank" einstellen und dann mit den bordeigenen Archiv-Mitteln archivieren?


Andreas

[Schwalli]

Hallo,

Ich stelle mir gerade folgende Frage.

Koennte man nicht einfach in 11 Datenbanken die 12. Db als "Archiv-Datenbank" einstellen und dann mit den bordeigenen Archiv-Mitteln archivieren?


Andreas

Sehr guter Tipp!
Danke dafür! So hab ichs gemacht