(AutoIt) Unzip Files Matching a Pattern (such as *.xml)

Example code to unzip Files Matching a Pattern (such as *.xml)

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example works with the .zip located at http://www.example-code.com/data/test.zip

; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

; First, let's download the .zip
$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess = $oHttp.Download("http://www.example-code.com/data/test.zip","qa_test/test.zip")
If ($bSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oZip = ObjCreate("Chilkat.Zip")

$bSuccess = $oZip.OpenZip("qa_test/test.zip")
If ($bSuccess <> True) Then
    ConsoleWrite($oZip.LastErrorText & @CRLF)
    Exit
EndIf

; Show what's in the .zip by getting the directory as XML.
Local $sZipContentsXml = $oZip.GetDirectoryAsXML()
If ($oZip.LastMethodSuccess <> True) Then
    ConsoleWrite($oZip.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite($sZipContentsXml & @CRLF)

; In this case, the contents of our .zip look like this:
; <?xml version="1.0" encoding="utf-8" ?>
; <zip_contents>
;     <dir name="test">
;         <dir name="abc">
;             <dir name="123">
;                 <file>ecc_public.pem</file>
;                 <file>starfish.jpg</file>
;             </dir>
;             <file>comodo-certificates.pem</file>
;             <file>pigs.xml</file>
;         </dir>
;         <file>COMODORSACertificationAuthority.crt</file>
;         <file>hamlet.xml</file>
;     </dir>
; </zip_contents>

; ------------------------------------------------------------------------
; If we wish to unzip only .xml files, use "*.xml" for the pattern\
; Unzip to the "qa_output" directory relative to our current working directory.
; (You may unzip to an absolute path by passing an absolute path, such as "/someDir" or
; "C:/someDir", etc.)
; This will unzip only the .xml files.  The relative directory structure within
; the .zip will be created in the local filesystem under the unzip directory
; path passed in the first argument, which in this case is "qa_output".
Local $iCount = $oZip.UnzipMatching("qa_output","*.xml",True)
If ($iCount < 0) Then
    ConsoleWrite($oZip.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("unzipped " & $iCount & " matching file(s)." & @CRLF)

; ------------------------------------------------------------------------
; If we wish to unzip only files under the "123" directory, we can do this:
$iCount = $oZip.UnzipMatching("qa_output2","*/123/*",True)
If ($iCount < 0) Then
    ConsoleWrite($oZip.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("unzipped " & $iCount & " matching file(s)." & @CRLF)

; ------------------------------------------------------------------------
; If no asterisk character is used, then the match must be exact.
; For example, to unzip "test/hamlet.xml" we must pass the exact path
; as it is in the .zip.  We cannot just pass "hamlet.xml".
$iCount = $oZip.UnzipMatching("qa_output3","test/hamlet.xml",True)
If ($iCount < 0) Then
    ConsoleWrite($oZip.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("unzipped " & $iCount & " matching file(s)." & @CRLF)

; ------------------------------------------------------------------------
; If we want to unzip any file named "hamlet.xml" found in any sub-directory...
$iCount = $oZip.UnzipMatching("qa_output4","*/hamlet.xml",True)
If ($iCount < 0) Then
    ConsoleWrite($oZip.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("unzipped " & $iCount & " matching file(s)." & @CRLF)