By
vindicta
Hello Everyone,
Please pardon my noobiness. I am working on backup restore script where a progress bar is required. I have tried using following code which works fine with folders but not really with single file because robocopy
Func CopyFolder($srcDir, $destDir, $part) ;======> $part shows whats being copied (e.g. Desktop, Documents etc.)
If StringRight($srcDir, 1) = "\" Then $srcDir = StringLeft($srcDir, StringLen($srcDir) - 1)
If Not FileExists($destDir) Then DirCreate($destDir)
$srcSize = DirGetSize($srcDir, $DIR_EXTENDED)
$1_percent = $srcSize[0] / 100
$cmd = 'C:\Windows\System32\robocopy.exe "' & $srcDir & '" "' & $destDir & '" /E /Z /XO /XX /FFT /XJ /NDL /NJH /FP /ETA /NP /V /R:10 /W:5 /LOG+:"' & $logFile & '" /XF desktop.ini thumbs.db'
Run(@ComSpec & " /c " & $cmd, "", @SW_HIDE)
Do
Sleep(300)
Until ProcessExists("robocopy.exe")
ProgressOn($part, $1_percent & "%", "", 0, 0, 16)
Do
$destSize = DirGetSize($destDir, $DIR_EXTENDED)
ProgressSet(Round($destSize[0] / $1_percent, 2), Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2) & " MB copied", Round($destSize[0] / $1_percent, 2) & "%")
Sleep(200)
Until ProcessExists("robocopy.exe") = 0
ProgressOff()
FileWriteLine($logFile, @CRLF & @CRLF)
EndFunc ;==>CopyFolder
Part of the problem is that I need to generate logs of files being copied. One particular problem is firefox profile directory. the directory is named as oi3jdslk.default or asdwdx.new and I need to copy places.sqlite from this directory.
Xcopy manages to copy FROM this directory but not TO this directory because of wildcards
Then I came across this neat script
Func CopyFile($fromFile, $todirectory)
Local $FOF_RESPOND_YES = 16
Local $FOF_SIMPLEPROGRESS = 256
$winShell = ObjCreate("shell.application")
$winShell.namespace($todirectory).CopyHere($fromFile, $FOF_RESPOND_YES)
EndFunc ;==>CopyFile
It helped me copy other single files but not the one required from firefox profile folder. Here is how I am trying to process that
$path = @UserProfileDir & "\AppData\Roaming\Mozilla\Firefox\" & $ffDir & "\places.sqlite"
CopyFile($path, $BUFolder & "Mozilla") ;===> $BUFolder = "E:\" & @username & " - Backup\"
#cs ======================================================
$ffDir is another variable derived from this function. This variable is the gets the default firefox profile to copy places.sqlite from
$ffDir is returned as Profiles\xbsen2s.default (Firefox randomizes the profile directory for extra security(?). At least that's what they say.
#ce ======================================================
Func FFProfile()
Local $iniFile = @UserProfileDir & "\AppData\Roaming\Mozilla\Firefox\profiles.ini"
Local $ddNumber
Local $ddLine
Local $Line
If FileExists($iniFile) Then
FileOpen($iniFile, 0)
For $i = 1 To _FileCountLines($iniFile)
$Line = FileReadLine($iniFile, $i)
If StringInStr("DEFAULT=1", $Line) Then
$ddNumber = $i - 1
ExitLoop
ElseIf StringInStr("Name=default", $Line) Then
$ddNumber = $i + 2
EndIf
Next
$ddLine = FileReadLine($iniFile, $ddNumber)
$ffDir = StringReplace(StringTrimLeft($ddLine, 5), "/", "\")
$ffInstall = 1
Else
$ffInstall = 0
EndIf
FileClose($iniFile)
EndFunc ;==>FFProfile
I really like how natural the progress bar from second copy script look like and would like to keep the progress bar uniform across the program. I am willing to learn if anyone can point me in right direction and help me achieve this.
Any help is highly appreciated!!
By vindicta
By WannaBeGut
By Tim H.