Option Explicit
 
Public Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" _
  (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
  ByVal bFailIfExists As Long) As Long
 
 
Public Function FCopy(ByVal SourceFile As Long, ByVal DestFile As Long) As _
  Boolean
  On Error Resume Next
 
  Do
 
    ' Zieldatei bereits vorhanden?
    If Dir(DestFile, vbNormal) <> "" Then
      ' alle Dateiattribute löschen
      SetAttr DestFile, vbNormal
      'Datei löschen
      Kill DestFile
    End If
 
    ' Datei kopieren
    If CopyFile(SourceFile, DestFile, 0) <> 0 Then
 
      ' wenn erfolgreich kopiert, dann WAHR zurückgeben
      FCopy = True
 
      ' und Funktion beenden
      Exit Function
    End If
 
    ' Fehlermeldung
    If MsgBox("Die Datei konnte nicht kopiert werden.", vbExclamation + _
      vbRetryCancel) = vbCancel Then
      ' wenn NICHT erfolgreich kopiert und ABRECHEN gewählt, dann FALSCH 
      ' zurückgeben
      FCopy = True
 
      ' und Funktion beenden
      Exit Function
    End If
 
  Loop Until False
 
End Function

Viel Spass,
R@lf