Проверка архивов в папке на целостность

7za.exe t "один из файлов">nul
Echo %ErrorLevel%

If RunWait('7za.exe t "один из файлов"', @ScriptDir & '\Папка-1', @SW_HIDE) = 0 Then ; хороший
	; ... ничего не делаем
Else ; битый
	FileMove(@ScriptDir & '\Папка-1\один из файлов', @ScriptDir & '\Папка-2\один из файлов', 1) ; битые переместить в Папка-2
EndIf

RunWait('7za.exe t "C:\8\1\61400000.64F"')

_main()
If @error Then Exit MsgBox(16, "Ошибка!!", "Нет файлов для обработки ", 3)
MsgBox(0, "Success", "Success", 3)

Func _main()
    Local $hFile, $sFilename ; объявление переменных
	
	$hFile = FileFindFirstFile("*.*F") ; начинаем искать
    If $hFile = -1 Or @error = 1 Then Return SetError(1, 0, 0)
	
	While 1
        $sFilename = FileFindNextFile($hFile) ; получаем файл из папки
		
		If @error Then ExitLoop ; если ошибка, то выход
        If @extended = 1 Then ContinueLoop ; если не файл, а каталог, пропустить и продолжить поиск далее
		
		; проверка:
		
		If RunWait('7za.exe t ' & $sFilename, '',  @SW_HIDE) = 0 Then ; хороший
    ; ... ничего не делаем
		Else ; битый
		FileMove('C:\8\' & $sFilename, 'C:\8\1\' & $sFilename, 1) ; битые переместить в Папка-2
		EndIf
	
	
	WEnd
    FileClose($hFile) ; закрыть указатель на поиск
    Return SetError(0, 0, 1)	
	
	
EndFunc   ;==>_main

_main()
If @error Then Exit MsgBox(16, "Ошибка!!", "Нет файлов для обработки ", 3)
MsgBox(0, "Success", "Success", 3)

Func _main()
    Local $dir1, $dir2, $hFile, $sFilename ; объявление переменных
	
	; Существуют 2 папки:
    $dir1 = "C:\8\1\" ; Папка-1 (Где проверяется)
    $dir2 = "C:\8\bad\" ; Папка-2 (Куда кидать плохие)
	
	FileChangeDir($dir1)
	
	$hFile = FileFindFirstFile("*.*F") ; начинаем искать
    If $hFile = -1 Or @error = 1 Then Return SetError(1, 0, 0)
	
	While 1
        $sFilename = FileFindNextFile($hFile) ; получаем файл из папки
		
		If @error Then ExitLoop ; если ошибка, то выход
        If @extended = 1 Then ContinueLoop ; если не файл, а каталог, пропустить и продолжить поиск далее
		
		; проверка:
		
		If RunWait('C:\8\7za.exe t ' & $sFilename, '',  @SW_HIDE) = 0 Then ; хороший
    ; ... ничего не делаем
		Else ; битый
		FileMove($dir1 & $sFilename, $dir2 & $sFilename, 1) ; битые переместить в Папка-2
		EndIf
	
	
	WEnd
    FileClose($hFile) ; закрыть указатель на поиск
    Return SetError(0, 0, 1)	
	
	
EndFunc   ;==>_main

$dir1 = "C:\8\1\" ; Папка-1 (Где проверяется)
    $dir2 = "C:\8\bad\" ; Папка-2 (Куда кидать плохие)
	
	FileChangeDir($dir1)

#include <7ZipM.au3>
#include <FileEx.au3>
Local $PFS = @ScriptDir & '\pfs'; исходная папка
Local $PFD = @ScriptDir & '\pfd';папка для битых
Local $FS = _FileSearch($PFS, '7z', 2), $res
If Not @error Then
	For $i = 1 To $FS[0]
		$res = _7ZipCheckArchive(_ANSIToOEM($FS[$i]))
		If Not $res Then FileMove($FS[$i], StringReplace($FS[$i], $PFS, $PFD), 9)
	Next
EndIf