Status anzeige beim Kopieren einbauen

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Download.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
 
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <Excel.au3>
 
$BilderPfadA = "K:\Bild\"
DirCreate("c:\Temp\")
FileInstall ("C:\temp\7z.exe","C:\temp\7z.exe")
Auswahl()
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Excel datei auswählen
Func Auswahl()
 
    Local Const $sMessage = "Bitte die Artikelliste auswählen"
 
    ; Wo liegt die Excel
    Local $sFileOpenDialog = FileOpenDialog($sMessage, @DesktopDir & "\", "Excel (*.xlsx) (*.xls)", $FD_FILEMUSTEXIST)
    If @error Then
        ; Zeige bei fehler
        MsgBox($MB_SYSTEMMODAL, "", "Keine Datei ausgewählt es wird abgebrochen.")
Exit
        ; Den Ordner Ändern beim öffnen
        FileChangeDir(@DesktopDir)
    Else
 
        FileChangeDir(@DesktopDir)
 
 
        $sFileOpenDialog = StringReplace($sFileOpenDialog, "|", @CRLF)
 
        ; Zeige ausgewählte Datei
        MsgBox($MB_SYSTEMMODAL, "", "Folgende Datei wurde geladen:" & @CRLF & $sFileOpenDialog)
    EndIf
 
 
 
 
Local Const $sMessage3 = "Bitte das Quell-Bildverzeichnis auswählen"
 
    ; Display an open dialog to select a file.
    Local $sFileSelectFolder2 = FileSelectFolder($sMessage3,"")
    If @error Then
        ; Display the error message.
        MsgBox($MB_SYSTEMMODAL, "", "Es wurde kein Ordner gewählt. Es wird abgebrochen")
                               Exit
    Else
        ; Display the selected folder.
        MsgBox($MB_SYSTEMMODAL, "", "Folgendes Verzeichnis wurde gewählt:" & @CRLF & $sFileSelectFolder2)
    EndIf
 
 
 
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Ordner zum Kopieren
 
    Local Const $sMessage2 = "Bitte ein Ausgabe-Bildverzeichnis auswählen"
 
    ; Display an open dialog to select a file.
    Local $sFileSelectFolder = FileSelectFolder($sMessage2, "")
    If @error Then
        ; Display the error message.
        MsgBox($MB_SYSTEMMODAL, "", "Es wurde kein Ordner gewählt. Es wird abgebrochen")
                               Exit
    Else
        ; Display the selected folder.
        MsgBox($MB_SYSTEMMODAL, "", "Folgendes Verzeichnis wurde gewählt:" & @CRLF & $sFileSelectFolder)
    EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Excel Datei Auslesen
; Create application object and open an example workbook
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel Datei Einlesen", "Fehler: Excel konnte nicht gestartet werden!" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, $sFileOpenDialog)
If @error Then
    MsgBox($MB_SYSTEMMODAL, "Excel Datei einlesen", "Fehler beim Öffnen der Excel Tabelle '" & @DesktopDir & $sFileSelectFolder & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf
 
; Read the formulas of a cell range (all used cells in column A)
Local $aResult = _Excel_RangeRead($oWorkbook, Default, $oWorkbook.ActiveSheet.Usedrange.Columns("A:A"), 2)
If @error Then  MsgBox($MB_SYSTEMMODAL, "Excel Datei einlesen", "Error reading from workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
 
 
For $i = 0 To Ubound($aResult) - 1
    FileCopy($sFileSelectFolder2 &"\" & $aResult[$i] & ".jpg", $sFileSelectFolder & "\" & $aResult[$i] & ".jpg")
next
$tmp = msgbox(4,"Fertig","Alle vorhandenen Bilder wurden kopiert!" & @CRLF & "Soll ein Zip-Archiv erstellt werden?")
$OrdnerFake = '"' & $sFileSelectFolder &'"'
$DektopFake = '"' & @DesktopDir &'"'
$scriptordnerFake = '"' & @scriptdir &'\7z.exe"'
Switch $tmp
                Case 6
                               $Zipname = InputBox ("Zip Dateiname","Name der Zip Datei?")
                               $zipnamefake = '"' & $Zipname & '"'
                               RunWait (@ComSpec & " /c " & "C:\temp\7z.exe" & " a " & "C:\Temp" & "\" & $zipnamefake &".zip " & $OrdnerFake &"\" )
                               FileMove("C:\Temp\"& $Zipname &".zip",@DesktopDir )
 
                               msgbox(0,"Excel Kopierer","Zip-Datei wurde auf dem Desktop erstellt.")
; Code für JA
                Case 7
msgbox (0,"Bilder kopieren","Bilder wurden Ohne ungezipt kopiert")
; Code für NEIN
                Case 2   ; CANCEL
                               msgbox (0,"Bilder kopieren","Bilder wurden ungezipt kopiert")
Exit
EndSwitch
 
EndFunc