Xcopy "%Quelle%%1" "%Ziel%" /Y
IF %Errorlevel% EQU 0 (
  >>%Log% Echo %time% Datei %1 erfolgreich kopiert
) Else (
  >>%Log% Echo %time% Datei %1 NICHT kopiert, Fehler %Errorlevel%
)

Public Sub kopieren()
 
 
    Dim strFo As String
    Dim strFi As String
    Dim strFolder As String
    Dim strFile As String
    Dim oFSO As Object
 
    On Error GoTo next
 
        strFo = thisProject.Variables.Item("FolderName").Value
        strFi = thisProject.Variables.Item("FileName").Value
        strFolder = Format(CStr(strFo), "00000000000")
        strFile = Format(CStr(strFi), "00000000000")
 
        Set oFSO = CreateObject("Scripting.FileSystemObject")
 
        If oFSO.FileExists("\\AppData\" & strFile & "Daten.txt") = False Then
            'File doesn't exist
            ' Tu was z.B. MsgBox
        Else
            'File exist
            oFSO.CopyFile "\\AppData\" & strFile & "Daten.txt", _
              "D:\Daten\AppData\" & strFolder & "\"
        End If
        On Error GoTo 0
        On Error GoTo next
 
        If oFSO.FileExist("D:\Daten\AppData\ & strFolder & "\" & strFile &" & _
          ""Daten.txt") Then
            ' Tu was
        End If
        On Error GoTo 0
 
Set oFSO = Nothing
 
End Sub