Удаление файлов из архива *.zip

#include <Encoding.au3>
_Encoding_866To1251($sData)

#Include <File.au3>
#Include <Array.au3>
$s7z_exe = @ScriptDir & "\data\7z.exe" ; путь к консольной версии архиватора 7zip
$s7z_dll = @ScriptDir & "\data\7z.dll" ; путь к библиотеке, которую использует 7zip

_unpack ("D:\архивы\111111.zip")

Func _unpack ($sArch)
	$sTempDir = @TempDir & "\Arch_unpacker" ; временная папка, куда будут извлекаться файлы
	If FileExists ($sArch) = 0 Then Return "" ; если архива нет, то возвращаемся из функции
	RunWait ( $s7z_exe & ' e ' & '"' & $sArch & '" -o"'& $sTempDir &'" *.1CD -r -aoa', @ScriptDir & '\data', @SW_HIDE); запускаем архиватор и приостанавливаем скрипт
	$aTempFiles = _FileListToArray($sTempDir, "*.*", 1) ; собираем имена всех файлов в этом  временном каталоге
	_ArrayDisplay($aTempFiles) ; отладка
	DirRemove ($sTempDir, 1) ; после обработки удаляем все временные файлы вместе с папкой.
EndFunc

$h_Dir = Run(@ComSpec & ' /U /C DIR "' & $s_Path_Search & '\' & $a_Masks[$i] & '"' & $s_Subdir & $s_Attrib, @SystemDir, @SW_HIDE, 6)

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

;Демонстрация
$Demonstration = Struct_Reader() ; Если исследуемый каталог не каталог скрипта, можно указать путь.
Struct_Finder($Demonstration) ; Вторым параметром этой функции можно задать конкретный подкаталог
;Демонстрация

Func Struct_Reader($TagertDir = @ScriptDir, $OldDir = "") 
Dim $Marker
If $TagertDir <> @ScriptDir Then $TagertDir = $OldDir & "\" & $TagertDir
	
$Dirs=_FileListToArray($TagertDir, "*", 2) ; Определяем вложенные каталоги
	If (not IsArray($Dirs)) Then ; Если вложенных каталогов нет, объявляем пустой массив $Dirs
		Dim $Dirs[1]
		$Marker = "D"
	EndIf

$Files=_FileListToArray($TagertDir, "*", 1) ; Определяем вложенные файлы
	If (not IsArray($Files)) Then ; Если вложенных файлов нет, объявляем пустой массив $Files
		Dim $Files[1]
		$Marker = "F"
	EndIf
				
If Ubound($Dirs) + Ubound($Files) > 0 Then ; Подводим итоги предшествующих проверок, - стуктурируем массив
	Dim $Structure[$Dirs[0] + $Files[0] + 1][2]
	$Structure[0][0] = $TagertDir ; Сохраняем путь к опрошенному каталогу.	
		If $Marker = "D" Then $Structure[0][1] = "no_dirs"  ; Если в дирректории необнаруженно либо файлов либо каталогов 
		If $Marker = "F" Then $Structure[0][1] = "no_files" ; Оставляем "маркер" мне нужно было для отладки, хотя наверное можно найти и практическое прменение :)
			
		If $Marker <> "D" Then ; Если подиректории есть то опишем их, и отметим как "dir" для избиратеольной рекурсии
			For $i = 1 to UBound($Dirs) - 1	
					$Structure[$i][0] = $Dirs[$i]
					$Structure[$i][1] = "dir"
			Next
		Else
			$i = 1	
		EndIf 
		
		If $Marker <> "F" Then ; Если есть вложенные файлы - добавляем их к концу масиива, отмечаем как "File"
							   ; Это мой личный "бзык" так папки будут вверху файлы внизу//
			For $z = $i to $i + $Files[0] - 1 
					$Structure[$z][0] = $Files[$z - $i + 1]
					$Structure[$z][1] = "file" 
			Next	
		Endif
EndIf

For $i = 1 to Ubound($Structure) - 1    ; Собственно рекурсия функции
	If $Structure[$i][1] = "dir" Then 
		$Structure[$i][1] = Struct_Reader($Structure[$i][0], $Structure[0][0]) 
	EndIf
Next

Return $Structure

EndFunc

Func Struct_Finder ($TagertArray, $TagertDir = @ScriptDir)

If StringRight($TagertDir, 1) = "\" Then $TagertDir = StringTrimRight($TagertDir, 1)

If $TagertArray[0][0] <> $TagertDir Then
		For $i = 1 to UBound($TagertArray)-1
		If IsArray($TagertArray[$i][1]) Then Struct_Finder($TagertArray[$i][1], $TagertDir)
		Next
Else
	$Result = $TagertArray
EndIf

_ArrayDisplay($Result, "Result")
EndFunc

#Include <7Zip.au3>
#Include <Date.au3>

_FindFiles(@DesktopDir & '\Test', '*.zip;*.7z')

Func _FindFiles($sRoot, $sFile, $sFilter = '*')

	Local $FL

	$FL = _FileListToArrayEx($sRoot, $sFile, 1)
	If Not @error Then
		For $i = 1 To $FL[0]
			_EnumArcFiles($sRoot & '\' & $FL[$i], $sFilter)
		Next
	EndIf
	$FL = _FileListToArrayEx($sRoot, '*', 2)
	If Not @error Then
		For $i = 1 To $FL[0]
			_FindFiles($sRoot & '\' & $FL[$i], $sFile)
		Next
	EndIf
EndFunc   ;==>_FindFiles

Func _EnumArcFiles($sPath, $sFilter)

	ConsoleWrite($sPath & @CR)
	ConsoleWrite('------------------------------------------------------------' & @CR)

	Local $hArc, $tInfo, $Result = 0

	Do
		$hArc = _7ZipOpenArchive(0, $sPath)
		If Not $hArc Then
			ExitLoop
		EndIf
		$tInfo = _7ZipFindFirst($hArc, $sFilter)
		If Not IsDllStruct($tInfo) Then
			ExitLoop
		EndIf
		Do
			$File = DllStructGetData($tInfo, 'szFileName')
			If StringRight($File, 1) <> '\' Then
				ConsoleWrite('File:   ' & $File & @CR)
				ConsoleWrite('Size:   ' & DllStructGetData($tInfo, 'dwOriginalSize') & @CR)
				ConsoleWrite('Date:   ' & _Date_Time_DOSDateToStr(DllStructGetData($tInfo, 'wDate')) & @CR)
				ConsoleWrite('Time:   ' & _Date_Time_DOSTimeToStr(DllStructGetData($tInfo, 'wTime')) & @CR)
				ConsoleWrite('Attrib: ' & DllStructGetData($tInfo, 'szAttribute') & @CR)
				ConsoleWrite(@CR)
			EndIf
			$tInfo = _7ZipFindNext($hArc, $tInfo)
		Until Not IsDllStruct($tInfo)
		$Result = 1
	Until 1
	If Not $Result Then
		ConsoleWrite('Error!' & @CR)
	Else
		ConsoleWrite(@CR)
	EndIf
	Return $Result
EndFunc   ;==>_EnumArcFiles

Func _FileListToArrayEx($sPath, $sFilter = "*", $iFlag = 0)
    Local $hSearch, $aResult, $sFile, $sFileList, $sDelim = "|"
    $sPath = StringRegExpReplace($sPath, "[\\/]+\z", "") & "\"
    If Not FileExists($sPath) Then Return SetError(1, 1, "")
    If StringRegExp($sFilter, "[\\/:><\|]|(?s)\A\s*\z") Then Return SetError(2, 2, "")
    If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")
    $hSearch = FileFindFirstFile($sPath & '*')
    If @error Then Return SetError(4, 4, "")
    While 1
        $sFile = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        If ($iFlag + @extended = 2) Then ContinueLoop
        $aResult = DllCall('shlwapi.dll', 'int', 'PathMatchSpecW', 'wstr', $sFile, 'wstr', $sFilter)
        If (Not @error) And ($aResult[0]) Then $sFileList &= $sDelim & $sFile
    WEnd
    FileClose($hSearch)
    If Not $sFileList Then Return SetError(4, 4, "")
    Return StringSplit(StringTrimLeft($sFileList, 1), "|")
EndFunc   ;==>_FileListToArrayEx

$Demonstration = Struct_Reader('C:\')