Dircopy() & Progress Bar

[ca143508]

Guys,

Is there a way you can use DirCopy and have a progress bar constantly updating it's percentage value based on a calculation?

ie/

$Copied = source directory size - destination directory size

$Percent = $Copied / Source Directory Size

Cheers,

Mike

[herewasplato]

I have not tested this script:

http://www.autoitscript.com/forum/index.ph...showtopic=11313

not sure what the "update" is like.

[ELP22]

....

#include <GuiConstants.au3>
$path= @DesktopDir & "\cpp++\"
$folder= @ProgramFilesDir & "\cp++\"
$m= " size " & FileGetSize($path)

ProgressOn("copy", "mm", "Progress")
sleep(2000)
DirCopy($folder, $path & $folder)
ProgressSet(10, "mm", "mm "&$m)
FileCopy(@ProgramFilesDir & "\blah3.exe", $path & "\blah3.exe")
ProgressSet(30, "mm", "mm "&$m)
FileCopy(@ProgramFilesDir & "\blah.dll", $path & "\blah.dll")
ProgressSet(40, "mm", "mm "&$m)
FileCopy(@ProgramFilesDir & "\blah.cpp", $path  &  "\blah.cpp")
ProgressSet(50, "mm", "mm "&$m)
FileCopy(@ProgramFilesDir & "\crypt.c", $path & "\crypt.c")
ProgressSet(60, "mm", "mm "&$m)
FileCopy(@ProgramFilesDir &"\stump.h", $path  & "\stump.h")
ProgressSet(70, "mm", "mm "&$m)
FileCopy(@ProgramFilesDir &"\stump2.h", $path  & "\stump2.h")
ProgressSet(90, "mm", "mm "&$m)
FileCopy(@ProgramFilesDir & "\main.dev", $path  & "\main.dev")
sleep(1000)
ProgressSet(100, "Done", "mm Complete")
sleep(1000)
ProgressOff()
msgbox(0,'fin','copy done')
Exit

[ca143508]

Thanks for the fast reply guys. ELP22, I had something similar to this originally but was looking for a more dynamic progress bar that showed gradule increase based on the amount of data being copied. Thanks for the help though. Greatly appreciated.

[herewasplato]

Greatly appreciated.

You are welcome...

I would say "Welcome to the forums", but with date Joined: 16-December 04???

...it must be that great help file that has kept you from having to ask for help before now :-)

Edit: Welcome anyway :-)

Edited April 19, 2006 by herewasplato

[ca143508]

I've been .... The helpfile has gotten me a fair way through things I have needed to do until now. The guys on here are brilliant. I look forward to seeing some more of their work.

[neogia]

This should handle what you need:

MsgBox(0,"", _GetFolderSize("C:\WINDOWS", "mb"))

Func _GetFolderSize($dir, $units = "b")
    $obj = ObjCreate("Scripting.FileSystemObject")
    If @error == 0 Then
        $folder = $obj.GetFolder($dir)
        Select
        Case $units == "b"
            Return $folder.Size
        Case $units == "kb"
            Return $folder.Size/1024
        Case $units == "mb"
            Return $folder.Size/1024/1024
        Case $units == "gb"
            Return $folder.Size/1024/1024/1024
        Case $units == "tb"
            Return $folder.Size/1024/1024/1024/1024
        EndSelect
    Else
        MsgBox(0,"","An error occurred, check that " & $dir & " exists.")
    EndIf
EndFunc

Edit: Changed error to be more informative

Edited April 19, 2006 by neogia