Copy with progress dialog...

[Charus]

can we make this with gui progress bar? if yes can you help ?

[Hobbitz]

Is it possible to have this script overwrite files automatically? I know the built in FileCopy can, but then you loose the progress bar.

[star2]

just coooooooooooooooooooooool

[MHz]

Is it possible to have this script overwrite files automatically? I know the built in FileCopy can, but then you loose the progress bar.

If your referring to the Com copy function, not sure. The link I show has the settings available and if you can achieve it, then yes. Only one way to find out is with a test script or something. I do not use it often enough to know.

[Hobbitz]

If your referring to the Com copy function, not sure. The link I show has the settings available and if you can achieve it, then yes. Only one way to find out is with a test script or something. I do not use it often enough to know.

I saw that after I posted, and by the way the script is made it's supposed to answer 'YES TO ALL' and overwrite the files. When I first tested, I was on a Vista machine and figured it was changed (like everything else ) but I also tested in XP and it did not answer the overwrite prompt.

[murray654]

same here

Line 0 (File "C:\Documents and Settings\Murray\My Documents\scripts\AutoIT3\Backup\BackupPowerTill.exe"):

Local $sIstr, $bSF, $sCriteria, $sBuffer, $iH, $iH2, $sCS, $sCF, $sCF2, $sCP, $sFP, $sOutPut = '', $aNull[1]

Local ^ ERROR

Error: Can not redeclare a parameter inside a user function.

Can anyone advise how to fix this script?

Best regards,

Murray

[MrCreatoR]

Can anyone advise how to fix this script?

Just remove $sIstr, from that line.

Edit: and $bSF, to

Edited June 9, 2007 by MsCreatoR

[murray654]

Just remove $sIstr, from that line.

Edit: and $bSF, to

Thanks MsCreator - it does work now.

Kind regards,

Murray

[MrCreatoR]

Hi all,

Check this my version to copy dir with progress...

When copying, displayed number of copied files, "from" to "where" currently is copying, and also the "Approximately Remained Time" for copying:

Here the script: CopyWithCustomProgress.au3

I hope this will be usefull aswell.

Edit: The function _GetTimeRemained() need more testing, i can't get it to calculate all possible variations, if someone have time/wish, please look at it. Basicly there is need to check the process arch., memory load, and "realy" check how many time (how long) take certain "system state" to copy particular number of megabytes.

Edited June 10, 2007 by MsCreatoR

[ljarratt]

What is the easiest way to change this script to perform like an xcopy, i.e. only copy newer files?

[ljarratt]

I figured it out. I added the following line:

If ( FileGetTime( $aFileList[$c],0,1) > FileGetTime( $sDestDir & $FileName,0,1 ) ) Then

EndIF

around this block of code where the copy takes place:

If Not FileCopy($aFileList[$c], $sDestDir & $FileName, 1) Then

If Not FileCopy($aFileList[$c], $sDestDir & $FileName, 1) Then ;Tries a second time

If RunWait(@ComSpec & ' /c copy /y "' & $aFileList[$c] & '" "' & $sDestDir & $FileName & '">' & @TempDir & '\o.tmp', '', @SW_HIDE)=1 Then;and a third time, but this time it takes the error message

$sError = FileReadLine(@TempDir & '\o.tmp',1)

$iOutPut = $iOutPut + 1

$sLost = $sLost & $aFileList[$c] & ' ' & $sError & @CRLF

EndIf

FileDelete(@TempDir & '\o.tmp')

EndIf

EndIf

I know the correct way to do this would be to pass in a parameter, create a list of the destination folder, then compare these if the parameter was set to newer only. I don't have time for that at the moment though.

[Martinibianco]

it works but don't solve my problem.

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

[ilko]

Hi,

My first post and autoit script, so please be gentle with the newb

Need to create a progress bar for file copying, files are copied from multiple sources and accuracy is not so important.

I have tried the functions found in this forum, thanks to the authors, however a few questions:

Using the script in first post copying takes almost 1.5 times compared to using:

...
$winShell = ObjCreate("shell.application")
$winShell.namespace($todirectory).CopyHere($fromFile)
...

Directory copied had ~12 000 files, 1.1GB. First script took 328 seconds to complete, commenting out FileSetAttrib reduced just a few seconds. A regular DirCopy() took 213sec., winshell way- 196sec.

The one in post #49 needed 713sec with a long delay while getting directory information.

Measured with

Logging("DirCopy started")
$begin = TimerInit()
DirCopy("L:\_ftp", "l:\_ftp_temp")
$dif = TimerDiff($begin) / 1000
Logging("_DirCopy Completed" & " Took " & $dif)

What can be improved in the ezzetabi's for such sources, and what has to be added to accept multiple source directories.

I guess if cannot be improved much for speed, then I'd have to control the progress bar only per the number of files, would that avoid delay?

Or any other ideas?

Thanks in advance.

Edited June 2, 2008 by ilko

[damian666]

ok, then check out my try.

i took both of the script posted here, and worked on them, as i saw fit.

uses the same syntax, but with a custom made dialog, with avi, just like in windows.

i am certain someone can make a better one, this is my first script i post, but do check it out

expandcollapse popup

#CS
;~ This script is demonstrate copy process with custom designed progress displayed, the progress display details about the copy process.
;~ 
;~ Syntax: _CopyWithProgress("C:\Source", "C:\Dest", 1)
;~ First parm is the source dir that files will be copied from.
;~ Second param is the destination path that files will be copied to.
;~ If the last parameter set as 1, then all existing files will be replaced with copied ones.
;~ 
;~ Author: G.Sandler a.k.a CreatoR
;~ Functions _DirListToArray() and _FileListToArrayEx() is originaly writen by amel27.
;~ Further modded by damian666
#CE

#include <AVIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>

;_CopyWithProgress("C:\Source", "C:\Dest", 1)

Func _CopyWithProgress($SourcePath, $DestPath, $Replace=0)
    If Not FileExists($SourcePath) Then Return SetError(1, 0, -1)
    If Not StringInStr(FileGetAttrib($DestPath), "D") And Not DirCreate($DestPath) Then Return SetError(2, 0, "")
    If $Replace <> 0 And $Replace <> 1 Then SetError(3, 0, "")
    
    Local $PathName = StringRegExpReplace($SourcePath, "^.*\\", "")
    Local $Progress=0, $Counter, $ReadySize, $MidlePath, $Ready, $TimeRemained
    Local $CurrentFilePath, $CurrentFileName, $CurrentFilePathName, $CurrentParentDirName
    
;ProgressOn("Copy Files...", "Copy: " & $PathName, "Getting dir structure" & @LF & "Please wait...", -1, -1, 2 + 16)
    
    Local $TotalDirSize = DirGetSize($SourcePath)
    Local $FilesArr = _FileListToArrayEx($SourcePath)
    Local $FilesCount = UBound($FilesArr)-1
    Local $ProgressStep = 100 / $FilesCount
    
;testdialog
    Opt("GUIOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=C:\Documents and Settings\Administrator\Bureaublad\Form1.kxf
    $Form1 = GUICreate("Copying...", 401, 238, 193, 125, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
    $Avi1 = GUICtrlCreateAvi(@ScriptDir & "\160.avi", -1, 0, 0, 400, 56, BitOR($ACS_TRANSPARENT,$ACS_AUTOPLAY))
    $Progress1 = GUICtrlCreateProgress(8, 64, 385, 17)
    $Label1 = GUICtrlCreateLabel("From:", 8, 112, 36, 17)
    $Label2 = GUICtrlCreateLabel("", 56, 112, 338, 25)
    $Label3 = GUICtrlCreateLabel("Filecopy in progress...", 8, 88, 385, 17)
    $Label4 = GUICtrlCreateLabel("To:", 8, 152, 36, 17)
    $Label5 = GUICtrlCreateLabel("", 56, 151, 338, 25)
    $Button1 = GUICtrlCreateButton("Cancel", 337, 216, 59, 17, 0)
    GUICtrlSetOnEvent(-1, "Button1Click")
    $Label6 = GUICtrlCreateLabel("Approximately Remained Time:", 8, 184, 156, 17)
    $Label7 = GUICtrlCreateLabel("", 176, 184, 217, 17)
    $Label8 = GUICtrlCreateLabel("Already done:", 8, 208, 69, 17)
    $Label9 = GUICtrlCreateLabel("", 88, 208, 243, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    
;end testdialog
    
    If IsArray($FilesArr) Then
        For $i = 1 To UBound($FilesArr)-1
            $CurrentFilePath = $FilesArr[$i]
            $CurrentFileName = StringRegExpReplace($CurrentFilePath, "^.*\\", "")
            $CurrentFilePathName = StringReplace($CurrentFilePath, $SourcePath & "\", "")
            
            $CurrentParentDirName = _GetParentDirName($CurrentFilePath)
            
            $Progress += $ProgressStep
            $Counter += 1
            
            $ReadySize = FileGetSize($CurrentFilePath)
            
            $MidlePath = _GetMidlePath($CurrentFilePath)
            $Ready = $Counter & "/" & $FilesCount
            $TimeRemained = _GetTimeRemained($TotalDirSize, $ReadySize, $FilesCount, $Counter)
            
            GUICtrlSetData($Label2, $CurrentFilePath)
            GUICtrlSetData($Label5, $DestPath & "\" & $CurrentFilePathName)
            GUICtrlSetData($Progress1, $Progress)
            GUICtrlSetData($Label7, $TimeRemained)
            GUICtrlSetData($Label9, $Ready)
            
        ;ProgressSet($Progress, "Copy... from " & $CurrentParentDirName & " to " & $CurrentParentDirName & @LF & _
            ;$MidlePath & @LF & "Approximately Remained Time: " & $TimeRemained, "Ready: " & $Ready)
            FileCopy($CurrentFilePath, $DestPath & "\" & $CurrentFilePathName, 8+$Replace)
        Next
    EndIf
;ProgressOff()
EndFunc

Func _FileListToArrayEx($sPath, $sMask='*')
    Local $i, $j, $blist, $rlist[1]=[0], $dlist = _DirListToArray($sPath)
    _ArrayAdd ($dlist, $sPath)
    For $i=1 To $dlist [0] +1
        $blist = _FileListToArray ($dlist [$i], $sMask, 1)
        If Not @error Then
            For $j=1 To $blist [0]
                _ArrayAdd ($rlist, $dlist[$i] & "\" & $blist [$j])
            Next
        EndIf
    Next
    $rlist [0] = UBound ($rlist) - 1
    Return $rlist
EndFunc

Func _DirListToArray($sPath)
    Local $rlist[2]=[1, $sPath], $blist, $alist=_FileListToArray ($sPath, '*', 2)
    If IsArray ($alist) Then
        For $i=1 To $alist [0]
            _ArrayAdd ($rlist, $sPath & "\" & $alist [$i])
            $blist = _DirListToArray ($sPath & "\" & $alist [$i])
            If $blist[0]>0 Then
                For $j=1 To $blist [0]
                    _ArrayAdd ($rlist, $blist [$j])
                Next
            EndIf
        Next
    EndIf
    $rlist[0] = UBound($rlist) - 1
    Return $rlist
EndFunc

Func _GetMidlePath($sPath)
    If StringLen($sPath) <= 50 Then Return $sPath
    Local $StartPath = StringLeft($sPath, 25)
    Local $EndPath = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -2)-1)
    Return $StartPath & "..." & $EndPath
EndFunc

Func _GetParentDirName($FullName)
    Local $LastSlashPos = StringInStr($FullName, "\", 0, -1)
    Local $SecondLastSlashPos = StringInStr($FullName, "\", 0, -2)
    Return StringMid($FullName, $SecondLastSlashPos+1, $LastSlashPos-$SecondLastSlashPos-1)
EndFunc

Func _GetTimeRemained($TotalSize, $CurrentSize, $FilesCount, $CurrentFilesCount)
    Local $NumLevl = 0.5
    
    If $TotalSize <= $CurrentSize Then Return _SecsToTime(0)
    
    Switch $FilesCount - $CurrentFilesCount
        Case 0 To 100
            $NumLevl = 0.1
        Case 100 To 1000
            $NumLevl = 0.5
        Case 1000 to 2000
            $NumLevl = 1
        Case Else
            $NumLevl = 2
    EndSwitch
    
    $Secs = ($TotalSize * $NumLevl) / (3600 * $CurrentFilesCount) - ($CurrentSize * $NumLevl) / (3600 * $CurrentFilesCount)
    Return _SecsToTime($Secs)
EndFunc

Func _SecsToTime($iTicks, $Delim=":")
    If Number($iTicks) >= 0 Then
        $iHours = Int($iTicks / 3600)
        $iTicks = Mod($iTicks, 3600)
        $iMins = Int($iTicks / 60)
        $iSecs = Round(Mod($iTicks, 60))
        If StringLen($iHours) = 1 Then $iHours = "0" & $iHours
        If StringLen($iMins) = 1 Then $iMins = "0" & $iMins
        If StringLen($iSecs) = 1 Then $iSecs = "0" & $iSecs
        Return $iHours & $Delim & $iMins & $Delim & $iSecs
    EndIf
    Return SetError(1, 0, 0)
EndFunc

Func Button1Click()
    Exit
EndFunc

let me know what you think, oh and dont forget the avi in the same dir for now...

Damian666

[Zedna]

ok, then check out my try.

i took both of the script posted here, and worked on them, as i saw fit.

uses the same syntax, but with a custom made dialog, with avi, just like in windows.

i am certain someone can make a better one, this is my first script i post, but do check it out

let me know what you think, oh and dont forget the avi in the same dir for now...

Damian666

Why reinvent the wheel?

There is Windows API SHFileOperation ($FO_COPY) which will do all the work for you

Look here: http://www.autoitscript.com/forum/index.ph...st&p=527285

[damian666]

well, first of all... i didnt know that

secondly, i am not that good with api calls

but thanx all the same, i am looking intoo it

Damian666

[damian666]

Damn, that is a good piece of code man. your a script god

thanx alot

damian666

p.s. what about moving instead of copying?

[Zedna]

Damn, that is a good piece of code man. your a script god

thanx alot

damian666

p.s. what about moving instead of copying?

This code is not from me. I just updated old script to be compatible with AutoIt 3.2.10 version

corrected little bug with Chr(0) separator and slightly simplified it.

For moving just use $FO_MOVE instead of $FO_COPY. All $FO_xxx constants are already defined in script.

Edited June 4, 2008 by Zedna

[damian666]

ok, cool,

thanx again man

Damian666

[ChromeFan]

D:\Autoit\copy.au3 (88) : ==> Can not redeclare a parameter inside a user function.:

Local $sIstr, $bSF, $sCriteria, $sBuffer, $iH, $iH2, $sCS, $sCF, $sCF2, $sCP, $sFP, $sOutPut = '', $aNull[1]

Local ^ ERROR

>Exit code: 1 Time: 0.848