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

Sub TueWas()
  ' Fehlerbehandlun aktivieren
  On Error Goto ErrHandler
 
  ' ... hier jetzt dein eignentlicher Code
 
  ' Fehlerbehandlung ausschalten
  On Error Goto 0
  Exit Sub
 
ErrHandler:
  ' Fehler in log-Datei speichern
  WriteFile App.Path & "\fehler.log", _
    Format$(Now,"dd.mm.yyyy hh:nn:ss") & ";" CStr(Err.Number) & ";" & _
    Err.Description, True
End Sub

' Hilfsfunktion zum Schreiben in eine Datei
Public Function WriteFile(ByVal sFile As String, ByVal sBuffer As String, _
  Optional ByVal bAppend As Boolean = False, _
  Optional ByVal bAppendCrLf As Boolean = True) As Boolean
 
  Dim F As Integer
 
  If Len(sFile) = 0 Then Exit Function
 
  F = FreeFile
  If bAppend Then
    Open sFile For Append As #F
  Else
    Open sFile For Output As #F
  End If
  If bAppendCrLf Then
    Print #F, sBuffer
  Else
    Print #F, sBuffer;
  End If
  Close #F
  WriteFile = True
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de