Unable to figure out progress bar incrementing - (Moved)

[anothergeorge]

Hey people! I've searched the forums and looked through the help file, but can't figure out how to implement a method to increment my progress bar in a simple copy/paste app with GUI.

I've made the GUI fully functional and the code behind the app is really simple. I focused only on pure functionality, but the progress bar is where I got stuck.

Here is my snippet:
 

Spoiler

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$form1 = GUICreate("File Handler", 427, 143, 744, 218)
$buttonCopy = GUICtrlCreateButton("Copy", 16, 104, 75, 25)
$buttonMove = GUICtrlCreateButton("Move", 128, 104, 75, 25)
$buttonDelete = GUICtrlCreateButton("Delete", 240, 104, 75, 25)
$buttonSelectFile = GUICtrlCreateButton("File", 336, 8, 75, 20)
$buttonDestinationPath = GUICtrlCreateButton("Folder", 336, 40, 75, 20)
$buttonExit = GUICtrlCreateButton("Exit", 336, 72, 75, 20)
$pathFile = GUICtrlCreateInput("", 16, 8, 297, 21)
$pathDestination = GUICtrlCreateInput("", 16, 40, 297, 21)
$Progress1 = GUICtrlCreateProgress(16, 72, 297, 17, $WS_BORDER)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        ;Select File button
        Case $buttonSelectFile
            $filePath = FileOpenDialog("Select File", "C:\", "All (*.*)")
            GUICtrlSetData($pathFile, $filePath)
        ;Select Destination Button
        Case $buttonDestinationPath
            If @error Then
                $buttonDestinationPath = ""
                EndIf
            $destinationPath = FileSelectFolder("Select Destination", "C:\")
            GUICtrlSetData($pathDestination, $destinationPath)
        ;Button starts copy action
        Case $buttonCopy
            $copyAction = FileCopy($filePath, $destinationPath, $Progress1)
            If $copyAction = 1 Then
                MsgBox(0, "Copy file", "Success!")
            Else
                MsgBox(0, "Copy file", "Fail!")
            EndIf
        ;Button starts move action
        Case $buttonMove
            $moveAction = FileMove($filePath, $destinationPath)
            If $moveAction = 1 Then
                MsgBox(0, "Move file", "Success!")
            Else
                MsgBox(0, "Move file", "Fail!")
            EndIf
        ;Button starts delete action
        Case $buttonDelete
            $deleteAction = FileDelete($filePath)
            If $deleteAction = 1 Then
                MsgBox(0, "Delete file", "Success!")
            Else
                MsgBox(0, "Delete file", "Fail!")
            EndIf
        ;Exit
        Case $buttonExit
            Exit
    EndSwitch
WEnd

I need the progress bar only for copy/move. Any advices, please?

[careca]

honestly i dont see why you would need a progress bar in a single file copy.

usually when i copy lots of files and i want a progress bar, i use a for loop with the total count of files and go from there, if you know what i mean,

but for a single file, i guess the way i would try to do it is, if the file is big enough, read the file size of the new file against the original, make a bit of math for percentage and update the bar with guictrlsetdata, otherwise the transfer is instant and the bar doesn't make sense.

Edited August 12, 2018 by careca

[Jos]

Moved to the appropriate forum.

Moderation Team