Hallo!
Inzwischen habe ich es hinbekommen. Man muss zwar etwas mit den Datenbanken jonglieren, aber nun gut:
Set dbTempl = New NotesDatabase(NameTemplateServer, PfadNameTemplateDB)
Set dbArch = dbTempl.CreateFromTemplate(NameArchServer, PfadNameArchDB, True)
dbArch.Title = "Archiv " & Jahr
dbArch.Categories = "Archivdatenbank"
Set dbArch = New NotesDatabase(NameArchServer, PfadNameArchDB)
Die Definitionen der Objekte habe ich mir hier im Code-Schnipsel gespart. Die String-Werte der Variablen werden im Declarations-Teil definiert und im Initialize-Teil aus einem Parameter-Dokument der zu archivierenden Datenbank eingelesen.
Danke für die Unterstützung!
Grüße
Frank