Help Needed - ProgessBar Updates While Copying Dirs

[neuro]

Hi guys -

I think I'm overcomplicating what I'm trying to achieve and I need help simplifying my thought process:

PROBLEM DOMAIN: I have a series of folders on the network that I want to copy locally while having a GUI progress bar update according to how may files are left to be copied. The easiest solution would be to use DirCopy but then updating the GUI progress' bar will move in too big of jumps. I want the progress bar smooth and relatively accurate.

IDEA: My idea is that you would have a function that would recursively drilldown into the directories getting all subdirectory paths (that alone has been a tough nut for me to crack), then calculate how many files are in each, add them together and use FileCopy instead of DirCopy in order to update the progress bar using modulus to update the progress bar every X number of files processed.

Is that overcomplicating things? There must be an easier way. Does anybody have any helpful suggestions or code examples I could use? Thanks in advance.

[neuro]

This post was pretty helpful to get the directory paths.

http://www.autoitscript.com/forum/index.php?showtopic=34097

[Xenobiologist]

Hi,

just a quick try:

;Copy with Progressbar
#Include <File.au3>

_copyProgress("c:\Downloads\Musik\Hütten Charts 2005\CD 1", "c:\Downloads\AutoIt-Skripte\Entwicklung\ForumTests\Mp3Test")

Func _copyProgress($From_dir, $Dest_dir, $filter = '*.*')
    Local $count = 0, $dir = ""
    $FileList = _FileListToArray($From_dir, $filter, 0)
    If (Not IsArray($FileList)) And (@error = 1) Then SetError(-1)
    ProgressOn("Copy", "Files :", "0 files")
    For $i = 1 To UBound($FileList) - 1
        If FileGetAttrib($FileList[$i]) = "D" Then $dir = "\*.*"
        If FileCopy($From_dir & "\" & $FileList[$i] & $dir, $Dest_dir & "\", 9) Then
            $count += 1
            ProgressSet($count * 100 / $FileList[0], _
                    "From: " & $From_dir & "\" & @LF & "To: " & $Dest_dir & "\" & @LF & $FileList[$i], _
                    Round(($count * 100 / $FileList[0]),2) & " % " & @TAB & $count & "/" & $FileList[0] & " Done")
        EndIf
    Next
    ProgressSet(100, "Done", "Complete")
    Sleep(500)
    ProgressOff()
    Return 1
EndFunc   ;==>_copyProgress

Edit: a bit shorter

So long,

Mega

Edited October 7, 2006 by th.meger

[neuro]

Hi,

just a quick try: [...]

That ProgressOn is pretty neat. You just gave me another interesting option. Thank you very much.