Dircopy with Progressbar

$sSource = FileSelectFolder("Bitte Quellpfad auswählen", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", 1)
$sDest = FileSelectFolder("Bitte Zielpfad auswählen", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", 1)
If $sSource <> $sDest Then
	CopyWithProgress($sSource, $sDest)
	If @error Then MsgBox(16,'Fehler:',@extended)
Else
	MsgBox(0, "Fehler", "Quelle und Ziel müssen unterschiedlich sein")
EndIf
#Include <Date.au3>
Func CopyWithProgress($srcDir, $destDir)    ;Original gigx siehe http://autoit.de/index.php?page=Thread&postID=25989#post25989
    Local $tsBeginn = _NowCalc(), $tsDiff =-1, $tsRest    ;eingefügt für Restdauer
    If StringRight($srcDir, 1) = "\" Then $srcDir = StringLeft($srcDir, StringLen($srcDir) - 1)
    If StringRight($destDir, 1) <> "\" Then $destDir = $destDir & "\"
    If Not FileExists($destDir) Then DirCreate($destDir)
    $srcSize = DirGetSize($srcDir, 1)
	If Not IsArray($srcSize) Then Return SetError(1, 1)
    $1_percent = $srcSize[0] / 100
    Run('XCOPY "'& $srcDir & '" "' & $destDir & '" /D /S /E /V /C /H /R /O /Y /F /G',@TempDir,@SW_HIDE )
    ProgressOn("Advanced status of file copying",  "", "",10,10)
    Do
        if $tsDiff < 0 Then Sleep(5000)
        $destSize = DirGetSize($destDir, 1)
		If Not IsArray($srcSize) Then Return SetError(1, 2)
        $tsDiff = _DateDiff("s",$tsBeginn,_NowCalc())
        $tsRest = round($tsDiff / ($destSize[0] / $1_percent) * 100,0) - $tsDiff
        ConsoleWrite($tsDiff & " " & $1_percent & " " & $tsRest &@CRLF)
        ProgressSet(Round($destSize[0] / $1_percent, 2), Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2)& " MB copied" & @CRLF _
            & $destSize[1] & " of " & $srcSize[1] & " Files copied." & @CRLF _
            & $destSize[2] & " of " & $srcSize[2] & " Folders copied.", Round($destSize[0] / $1_percent, 2) & "% - Done! " & $tsRest & " sec. Rest")
        Sleep($tsDiff)
    Until $destSize[0] >= $srcSize[0]
    MsgBox(0,"Fertig in " & $tsDiff & " sec.",Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2)& " MB copied" & @CRLF _
            & $destSize[1] & " of " & $srcSize[1] & " Files copied." & @CRLF _
            & $destSize[2] & " of " & $srcSize[2] & " Folders copied." & @CRLF & Round($destSize[0] / $1_percent, 2) & "% - Done! ")
    ProgressOff()
EndFunc
#cs
   /D:M-T-J  Kopiert nur die an oder nach dem Datum geänderten Dateien.
            Da kein Datum angegeben, werden nur Dateien kopiert,
            die neuer als die bestehenden Zieldateien sind.
  /S        Kopiert Verzeichnisse und Unterverzeichnisse, die nicht leer sind.
  /E        Kopiert alle Unterverzeichnisse (leer oder nicht leer).
  /V        Überprüft jede neue Datei auf Korrektheit.
  /C        Setzt das Kopieren fort, auch wenn Fehler auftreten.
  /H        Kopiert auch Dateien mit den Attributen 'Versteckt' und 'System'.
  /R        Überschreibt schreibgeschützte Dateien. (eventuell entfernen)
  /O        Kopiert Informationen über den Besitzer und ACL.
  /X        Kopiert Dateiüberwachungseinstellungen (bedingt /O).
              nicht gesetzt evtl. setzen
  /Y        Unterdrückt die Aufforderung zur Bestätigung, dass eine
              vorhandene Zieldatei überschrieben werden soll.
              praktisch aber evtl. entfernen, dann darf run aber nicht mit @SW_HIDE gestartet werden,
              da sonst ein unsichtbares Fenster auf eine Eingabe wartet
  /F        Zeigt die Namen der Quell- und Zieldateien beim Kopieren an.
              wenn mit @SW_HIDE gestartet unnötig, da Fenster unsichtbar
  /G        Ermöglicht das Kopieren von verschlüsselten Dateien auf ein
              Ziel wo Verschlüsselung nicht unterstützt wird.
#ce