Unzip your files without progress bar

[topten]

Very simple: I had seen many examples of unzipping files (Zip) archive, but most of those example where using either some external .dll or are performing the job with the progress bar. Here is a small example how you can unzip your files without any external libraries and without any progress bar

$ZipFile5="C:\file.zip"
$ExtractTo5="C:\folder"



$objShell5 = ObjCreate ("Shell.Application")
$FilesInZip5=$objShell5.NameSpace($ZipFile5).items
$objShell5.NameSpace($ExtractTo5).CopyHere($FilesInZip5,0x4)

Enjoy

[TheDcoder]

performing the job with the progress bar

??? Progress bar? You can extract zip files using a progress control!?

[topten]

By "progress bar" I mean - the windows progress bar which is showing- that your files are moving from one directory to another. And if you have say 10000 files in zip file? So if you don't like that win progress bar- this example is right for you

Ah, btw- if you do want the progress bar, then just remove this part from the code

,0x4

Edited October 20, 2015 by topten

[TheDcoder]

Oh ...

[ViciousXUSMC]

Nice, what limitation of OS does this have being object based (XP, 7, Vista, 8, 10)

I wrote a program to update maps for a 911 system and hated how the transfer dialog came up when the file was done downloading.

Edit: Here we go a copy of my code updated with this method.
I commented out the 2 lines that were doing the unzipping before, and I can remove the Include for Zip.au3

I noticed that you must have the directory already or this will not work so I added in the DirCreate()

My question here is how I was checking the return of the _Zip_UnzipAll() for log file usage.  How can I check the return of this unzip method so I can log the results accurately?

#Include <Array.au3>
#Include <File.au3>
#Include <Zip.au3>

$sMaps = "C:\Tiburon\"  ;Where To Save Maps

$aZip = _FileListToArray("C:\Tiburon", "*.zip", $FLTA_FILES, True) ;Get A List of All .Zip Files
If @Error Then ;If No Downloads Exit
    ;MsgBox(0, "", @Error)
    Exit
Else ;Else Get The Highest Version Map .Zip Package and Save to $sZip and get Name and save in $sMap2
    ;_ArrayDisplay($aZip)
    $sZip = $aZip[$aZip[0]]
    $aMap = StringSplit($sZip, "\")
    $sMap2 = StringTrimRight($aMap[$aMap[0]], 4)
    $sMaps &= $sMap2
EndIf

$sLogPath = "C:\Tiburon\" & $sMap2 & ".log" ;Create Our Log File Path with $sMap2 as the Name
_FileWriteLog($sLogPath, "New Map Package " & $sMap2 & " was downloaded") ;Write To Log that The .Zip was downloaded
$vStep1 = DirRemove($sMaps, 1) ;If Zip was Already Extracted Delete As To Extract New (Prevent Corrupted Downloads)
If $vStep1 = 1 Then _FileWriteLog($sLogPath, "Deleted old " & $sMap2 & " folder") ;Write To Log That Old Folder Was Found and Deleted
DirCreate($sMaps)
$objShell5 = ObjCreate("Shell.Application")
$FilesInZip5 = $objShell5.NameSpace($sZip).items
$objShell5.NameSpace($sMaps).CopyHere($FilesInZip5,0x4)
;$vStep2 = _Zip_UnzipAll($sZip, $sMaps, 1) ;Unzip Our File
;If $vStep2 = 0 Then _FileWriteLog($sLogPath, "Successfully Unziped Package for " & $sMap2) ;Log That We Unzipped Our File
$vStep3 = FileDelete($sZip) ;Delete Zip Package When Finished
If $vStep3 = 1 Then _FileWriteLog($sLogPath, "Successfully Deleted " & $sMap2 & " .Zip Package") ;Log That We Deleted Our Zip File Successfully

 

Edited October 21, 2015 by ViciousXUSMC

[topten]

ViciousXUSMC ,

"How can I check the return of this unzip method so I can log the results accurately?"

I  am not sure yet about how to check the return, I will try to research that question.

 

In my case- the script was waiting untill the files are unzipped and then it went on further execution

[ViciousXUSMC]

Yes it is waiting, and I was able to track down the page for the method.

.CopyHere does not have any return values, so guess I would need to find another way or just assume it works and log it after the extraction.

 

https://msdn.microsoft.com/en-us/library/windows/desktop/bb787866(v=vs.85).aspx?f=255&MSPPError=-2147217396

 

[topten]

ViciousXUSMC,

But what actually are you trying to achieve by logging?

[o_v_shake]

$ZipFile5="C:\Users\Abhishek\Downloads\BackPack_Resources\ComputerSystemsManagement_Lectures.zip"
   $ExtractTo5="C:\Users\Abhishek\Downloads\BackPack_Resources\CSE131\Lectures"
   $objShell5 = ObjCreate ("Shell.Application")
   $FilesInZip5=$objShell5.NameSpace($ZipFile5).items
   $objShell5.NameSpace($ExtractTo5).CopyHere($FilesInZip5,0x4)

 

I used this code for extracting my homework but I got this error instead:-

$FilesInZip5=$objShell5.NameSpace($ZipFile5).items
$FilesInZip5=$objShell5.NameSpace($ZipFile5)^ ERROR

What Could be the possible reason.
I am using this inside a function

 

[JLogan3o13]

You need to add some error checking to your script. Look at IsObj in the help file, and look at placing it there after your ObjCreate statement. You can also try running the script with #RequireAdmin at the top.

[o_v_shake]

isObj is returning 0 for  ($ZipFile5)

this means it is not a object variable.
where could I have gone wrong?

[JLogan3o13]

Did you try with #RequireAdmin? You need to error check the rest of the script:

• Confirm the zip file exists in the directory you reference in line 1
• Confirm the directory you reference in line 2 is accessible, and you have rights to it
• Confirm you can create the Shell.Application in line 3
• etc. etc. etc.

Look at @error and FileExists in the help file.

[o_v_shake]

Okay, Its working Now.
I just copied the code outside the function i had defined

But when I copied it back inside the function it stops working again

Any Clue?

[JLogan3o13]

None, since you didn't post the code in its entirety...

[o_v_shake]

This is the original code.

bot.au3