Function DateiKopieren(Quellpfad As String, Zielpfad As String, Ueberschreiben _
  As Boolean) As Boolean
On Error GoTo erh
Dim fso As New FileSystemObject
'Prüfen obs die Datei überhaupt gibt
If fso.FileExists(Quellpfad) = True Then
    fso.CopyFile Quellpfad, Zielpfad & "\", Ueberschreiben
    DateiKopieren = True
Else
    DateiKopieren = False
End If
Exit Function
erh:
DateiKopieren = False
End Function

If DateiKopieren("C:\Programme\Testdatei.txt", _
  "C:\Ordner\Nocheinordner\Testdatei.txt", True) = True Then
    MsgBox "Datei erfolgreich kopiert"
Else
    MsgBox "Fehler beim kopieren"
End If

http://project-05.tk