For Each oFile In oFolder.Files
           'Wenn die Datei im Zielpfad bereits existiert, wird der Counter für 
           ' die 
           'überschriebenen Dateien erhöht.
            If oFSO.FileExists(zielPfad & oFile.Name) Then
                overWrCount = overWrCount + 1
            End If
            'Datei kopieren in den Zielpfad
            oFSO.CopyFile oFile, zielPfad, True
            'Zähler für kopierte Dateien
            copyCount = copyCount + 1
 Next
 
debug.print "Kopierte Dateien " & copyCount & " davon überschriebene: " & _
  overWrCount