Progress Bar

[richsimple]

I have come a blank with this one and every option I have tried so far hasn't worked.

Im using a simple GUI using FileSelectFolder to copy files from USB to any other drive, what I would like to do is get the progree bar working but I don't have a clue where to start.

This is the copy code I'm using and it does what I need it to do, I would just like to see how far through it is as some files are large and if its on USB I don't want to be pulling out the stick before its finished

Func CopyClick()
Local $source = $sFileSelectFolder
Local $dest = $sFileSelectFolder1
Local $dest_time = $sFileSelectFolder & "\\..\old" & @YEAR & "-" & @MON & "-" & @MDAY
If FileExists($dest_time) Then
    Local $num = 1
    Local $new_dest = FileExists($dest_time & " " & $num)
    While 1
       If $new_dest Then
          $num = $num + 1
          $new_dest = FileExists($dest_time & " "  & $num)
       Else
        DirMove($dest, $dest_time & " "  & $num)
       ExitLoop
       EndIf
    WEnd
Else
    DirMove($dest, $dest_time)
EndIf

DirCopy($source, $dest)

;@WorkingDir


EndFunc   ;==>CopyClick

I know the solution is simple yet it escapes me...

Edited September 2, 2016 by richsimple
change of question before response

[Danyfirex]

Hello. progrably this helps.

https://www.autoitscript.com/forum/topic/11888-yet-another-copy-with-progress/

Saludos

[richsimple]

Thanks, was trying to find this type of postbefore I posted.

[Danyfirex]

You're welcome. short way https://www.autoitscript.com/autoit3/docs/libfunctions/_WinAPI_ShellFileOperation.htm

 

Saludos