Set dbDirectory = New NotesDbDirectory(strServer)
On Error Goto ErrorLog
i = 1
Set dbCurrent = dbDirectory.GetFirstDatabase(DATABASE)
While Not dbCurrent Is Nothing
If Not dbCurrent.IsOpen Then
Call dbCurrent.Open(dbCurrent.Server,dbCurrent.FilePath)
End If
If dbCurrent.IsOpen Then
Set docDBPropz = CreateDBDocument(dbCurrent, dbThis, vNeededGroups, strUpdating)
If Not docDBPropz Is Nothing Then
If CreateACLEntriesDocument(dbCurrent,dbThis,docDBPropz, vNeededGroups) Then
Print Cstr(i) + ". Datenbank wurde bearbeitet"
Else
Call appendError(rtErrorLog)
End If
Else
Call appendError(rtErrorLog)
End If
End If
...also könnte mein db.open schon das Problem verursachen
Um die Probleme mit \, / und Groß-/Kleinschreibung auszuließen, könntest du es mit
Call dbCurrent.OpenByReplicaID(dbCurrent.Server,dbCurrent.ReplikaID)
versuchen.
Hubert