For k = 0 To UBound(arrDirAbt) - 1
  pathToAbt = pathWerkeLocal & arrDirWerk(i) & arrDirAbt(k)
  BPK = Dir(pathToAbt)
  Do While Len(BPK)
    pathToBPK = pathToAbt & BPK    
    pathToExtAbt = arrUNCWerk(i) & arrDirAbt(k)
    If Len(Dir(pathToExtAbt & BPK)) <> 0 Then 'BPK beim Ziel vorhanden
      FileCopy pathToExtAbt & BPK, arrUNCWerk(i) & "outdated\" & BPK
      Kill pathToExtAbt & BPK
    End If
 
    retval = CopyFile(pathToBPK, pathToExtAbt & BPK, 1)
      If retval <> 0 Then  'kopiert
        writeLOGCopy
        Kill pathToBPK
     Else                'nicht kopiert
       writeLOGCopy
       retval2 = CopyFile(pathToBPK, arrUNCWerk(i) & "ERROR\" & arrDirAbt(k) & _
         BPK, 1)
       If retval2 <> 0 Then
         writeLOGCopy
       Else
         writeLOGCopy
       End If
     End If
     BPK = Dir
     Loop
   Next k 'Abteilung
Exit Sub
 
 
Err_CopyPlant:
    writeLOGCopy
    Err.Clear
    Resume Next
End Sub