Разархивировать все *.zip в директории и поддиректориях по указанному пути.

#include <Array.au3>

$aFilesList = _FileListToArrayParse(@HomeDrive & "\All_files", "*", -1)
_ArrayDisplay($aFilesList)

Func _FileListToArrayParse($sPath, $sMask="*", $iMode=-1) ;$iMode > 0 только папки, иначе папки + файлы
    If Not StringInStr(FileGetAttrib($sPath), "D") Then Return SetError(1, 0, 0)

    Local $PathesArr[2] = [1, $sPath]
    Local $hSearch, $sFindNext, $i

    While $i < $PathesArr[0]
        $i += 1
        $hSearch = FileFindFirstFile($PathesArr[$i] & "\" & $sMask)
        If $hSearch = -1 Then ContinueLoop
        While 1
            $sFindNext = FileFindNextFile($hSearch)
            If @error Then ExitLoop
            $sFindNext = $PathesArr[$i] & "\" & $sFindNext
            If $iMode <= 0 Or ($iMode = 1 And StringInStr(FileGetAttrib($sFindNext), "D")) Then
                $PathesArr[0] += 1
                ReDim $PathesArr[$PathesArr[0]+1]
                $PathesArr[$PathesArr[0]] = $sFindNext
            EndIf
        WEnd
        FileClose($hSearch)
    Wend
	 _ArrayToClip ($PathesArr)
EndFunc

#include<File.au3>
#include<Array.au3>
#include<Zip.au3>
Global $sFldr, $hDestPath, $aFiles
$sFldr = FileSelectFolder("Укажите папку с zip-файлами:", @ScriptDir, 2) & "\"
If NOT @Error Then $hDestPath = FileSelectFolder("Укажите папку в которую нужно распаковать zip-файлы:", $sFldr, 7) & "\"
If @Error Then Exit
$aFiles = _FileListToArray($sFldr, "*.zip", 1)
_ArrayDisplay($aFiles)
For $i = 1 To UBound($aFiles) -1
	 If NOT _Zip_UnzipAll($sFldr & $aFiles[$i], $hDestPath, 0) Then ; Измените 0 на 1 чтобы убрать прогрессбар
		MsgBox(4096, "Error", "Невожможно распаковать файл: " & @CRLF & $aFile[$i])
		ContinueLoop
	EndIf
Next
MsgBox(4096, "UNZIP", "Файлы успешно распакованы...")

#include<file.au3>
#include<array.au3>
#include<Zip.au3>
#include<FileOperations.au3> ; http://www.autoitscript.com/forum/topic/133224-filesearch-foldersearch/
Global $sFldr, $hDestPath, $aFiles
$sFldr = FileSelectFolder("Укажите папку с zip-файлами:", @ScriptDir, 2) & "\"
If NOT @Error Then $hDestPath = FileSelectFolder("Укажите папку в которую нужно распаковать zip-файлы:", $sFldr, 7) & "\"
If @Error Then Exit
$aFiles=_FO_FileSearch($sFldr, 'zip', True, 125, 1, 1, 0)
_ArrayDisplay($aFiles)
For $i = 1 To UBound($aFiles) -1
	 If NOT _Zip_UnzipAll($aFiles[$i], $hDestPath, 0) Then ; Измените 0 на 1 чтобы убрать прогрессбар
		MsgBox(4096, "Error", "Невожможно распаковать файл: " & @CRLF & $aFile[$i])
		ContinueLoop
	EndIf
Next
MsgBox(4096, "UNZIP", "Файлы успешно распакованы...")