Progress bar when expanding *.cab files?

[Av0]

Will it be possible to show GUI progress bar for cmd - "Expand data.cab -F:* C:\Temp"?

Thank you in advance, not very familiar with progress bars.

 

 

 

 

[spudw2k]

Great question.  It doesn't look like the expand exec provides any sort of progress on its own from what I can see.  From I would think, you could hack something together by comparing the files contained in the cab, and monitoring the files extracted and do a percentage calculation of how many files out of the total are complete.  This isn't the best to convey time wise the percentage is you can't see how big the files are (using expand), but it's something.

[Aelc]

Hey

You could use winrar with command line then you would have the winrar Progress bar.

Run ( $path & 'winrar.exe  x ' & @ScriptDir & 'data.cab *.* C:\Temp\' )

i mean its not the expand of cmd but faster and u got a progress

with cmd i have no idea just what spudw2k said.

 

[mLipok]

You can try:

or this:

 

[Aelc]

i just had some free time and created something that works...

a bit complicated way but don't know how else

expandcollapse popup

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.5
 Author:         aElc

 Script Function: _expand_cab_with_progress
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

#include <Array.au3>
;;; input file
$file_input = "test"
$dir_input = "F:\"
;;;output dir  ( folder must exist! - you can add fileopendialog or if to deny it )
$dir_output = "F:\test\"

$type = ".cab"

;delete old files if exist
If FileExists($dir_input & $file_input & '_compare.txt') Then FileDelete($dir_input & $file_input & '_compare.txt')
If FileExists($dir_input & $file_input & '_before.txt') Then FileDelete($dir_input & $file_input & '_before.txt')
If FileExists($dir_input & $file_input & '.txt') Then FileDelete($dir_input & $file_input & '.txt')

;CMD Command for list the .cab file
$command = ' /c expand /d ' & $dir_input & $file_input & $type & ' >' & $dir_input & $file_input & '.txt'
RunWait(@ComSpec & $command, "", @SW_HIDE)


;list and delete texts which not include files and bind the count to $TODO
If FileExists($file_input & ".txt") Then
    Local $array = FileReadToArray($file_input & ".txt")
    For $i = 1 To 2
        _ArrayDelete($array, 0)
    Next
    For $i = 1 To 2
        _ArrayDelete($array, UBound($array) - 1)
    Next
;~  _ArraySort($array)
    $todo = UBound($array) - 1 ;set Index
EndIf

;Check for other files in the folder to compare with them
If FileExists($dir_input & $file_input & '_before.txt') Then FileDelete($dir_input & $file_input & '_before.txt')
$command = ' /c dir ' & $dir_output & '*.* /w /s >' & $dir_input & $file_input & '_before.txt'
$pid = RunWait(@ComSpec & $command, "", @SW_HIDE)
Local $compare = FileReadToArray($dir_input & $file_input & '_before.txt')
Local $array_da = StringRegExp($compare[UBound($compare) - 2], "\s[0-9]* D", 3, 1)
$before = StringTrimLeft($array_da[0], 1)
$before = StringTrimRight($before, 2)


;start expand / progress
$command = ' /c expand -f:* ' & $dir_input & $file_input & $type & ' ' & $dir_output
$pid = Run(@ComSpec & $command, "", @SW_HIDE)
ProgressOn("Progress", "", "", 100)

;loop for checking progress
While 1
    Sleep(100)
    If FileExists($dir_input & $file_input & '_compare.txt') Then FileDelete($dir_input & $file_input & '_compare.txt')
    $command = ' /c dir ' & $dir_output & '*.* /w /s >' & $dir_input & $file_input & '_compare.txt'
    $pid = RunWait(@ComSpec & $command, "", @SW_HIDE)
    Local $compare2 = FileReadToArray($dir_input & $file_input & '_compare.txt')
    Local $array_das = StringRegExp($compare2[UBound($compare2) - 2], "\s[0-9]* D", 3, 1)
    $current = StringTrimLeft($array_das[0], 1)
    $current = StringTrimRight($current, 2)
    ProgressSet(($current - $before) / $todo * 100)
    If ($current - $before) / $todo * 100 > 99 Then Exit
WEnd
ProgressOff()
MsgBox ( 64,"","Done" )
Exit

btw OS win 7 x86 

Edited June 24, 2019 by Aelc