...
@Peter: Vorsicht... Gerade bei den Templates ist folgender Passus aus der Designer- Hilfe zur Methode "CreateCopy" extrem wichtig:
The copy contains the design elements of the current database, an identical access control list, and an identical title. It does not contain any documents.
z.B. Die events4.ntf enthält sämtliche Vorgaben für Event Messages / Default Statistic Thresholds / etc. Beim Start des entsprechenden Tasks werden diese mit der events4.nsf verglichen und fehlende / neuere aktualisiert, etc. Wenn man also nur mit CreateCopy arbeitet, gehen diese Daten verloren, und man hat kein aktualisiertes Event- Handling. Bei einigen anderen Schablonen ist es ähnlich (schema.ntf).
Das heisst: Dein Code muss auf jeden Fall erweitert werden um ein Kopieren aller Dokumente von quelldb nach zieldb (und zwar soweit möglich unter Beibehaltung der UNIDs, auch die spielt ab und zu eine Rolle)... Aber ansonsten hast Du vollkommen recht.
Das sollte ja auch nur ein Beispiel sein, und kein fertiges Tool, allerdings wäre diese Ergänzung nicht wirklich sehr aufwändig (5 Minuten) ...
'Quelldatenbank und Dokumente mit identischer UniversalID kopieren und löschen
Dim quelldb As NotesDatabase
Dim quellcol As NotesDocumentCollection
Dim quelldoc As NotesDocument
Dim zieldb As NotesDatabase
Dim zieldoc As NotesDocument
Set quelldb = New NotesDatabase (server1, dateiname1)
Set zieldb = quelldb.CreateCopy (server2, dateiname2)
Set quellcol = quelldb.AllDocuments
Set quelldoc = quellcol.GetFirstDocument
Do While Not quelldoc Is Nothing
Set zieldoc = New NotesDocument (zieldoc)
Call quelldoc.CopyAllItems (zieldoc)
zieldoc.UniversalID = quelldoc.UniversalID
Call zieldoc.Save (True, True)
Set quelldoc = quellcol.GetNextDocument (quelldoc)
Loop
Call quelldb.Remove