richsimple

Progress Bar

4 posts in this topic

#1 ·  Posted (edited)

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 by richsimple
change of question before response

Share this post


Link to post
Share on other sites



Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now