AutoIt Français

Code : Tout sélectionner

Func _CopyWithProgress($inSource, $inDest, $ChunkSize = 2048)

; Function to copy a file showing a realtime progress bar
;
; By Paul Niven (NiVZ)
;
; 05/11/2008
;
; Parameters:
;
; $inSource  -   Full path to source file
; $inDest   -    Full path to destination file (structure will be created if it does not exist
; $ChunkSize -   (Optional) Size of chunks to copy - setting this higher makes large files copy faster
;               Default chunk size is 2048
;
; Returns 0 if copy is successful and 1 if it fails

; Open source file for BINARY reading
    $SourceFile = FileOpen($inSource, 16)

; Check that file open was successful
    If $SourceFile = -1 Then
        MsgBox(16, "Error", "Unable to open source file: " & $inSource)
        Exit
    EndIf

; Open destination file for BINARY writing , overwriting existing file and creating directory structure if it doesn't exist
    $DestFile = FileOpen($inDest, 26)

; Check that file open was successful
    If $SourceFile = -1 Then
        MsgBox(16, "Error", "Unable to open destination file: " & $inDest)
        Exit
    EndIf

; Get the size of the file we are going to copy
    $SourceSize = FileGetSize($inSource)

; Calculate how many chunks we need to copy
    $Chunks = $SourceSize / $ChunkSize

; Show the progress bar
    ;ProgressOn("File Copy", "Copying...", "Source: " & $inSource & @LF & "Dest:  " & $inDest)

; Loop from 0 to number of chunks
    For $i = 0 to $Chunks

; Read the next chunk
        $Data = FileRead($SourceFile, $ChunkSize)

; Write the next chunk
        FileWrite($DestFile, $Data)

; Update the progress bar
        ;ProgressSet( (($i + 1) / $Chunks) * 100 )
        GUICtrlSetData($Prog_fichier, (($i + 1) / $Chunks) * 100)
    Next

; Hide the progress bar
    ProgressOff()

; Close the source file
    FileClose($SourceFile)

; Close the destination file
    FileClose($DestFile)

; Check the file copy was successful
    $DestSize = FileGetSize($inDest)

    If $SourceSize = $DestSize Then
        Return 0
    Else
        Return 1
    EndIf
EndFunc