[Автоматизация] Сортировка файлов и работа с DBF

#include <File.au3>
#include <Array.au3> 
#include <Process.au3>

Global $sINCatalog = @ScriptDir & '\in' ; Здесь лежат новые файлы в архивах
Global $sOUTCatalog = @ScriptDir & '\out' ; Здесь находятся распакованные файлы подготовленные для подгрузки
Global $sTMPCatalog = @ScriptDir & '\tmp' ; Здесь папка временных файлов.

$aFileList = _FileListToArray($sINCatalog, '*', 1)

For $i = 1 To UBound($aFileList) - 1
   $var1 = StringRight($aFileList[$i], 9) ; выражение part1.rar
   $var2 = StringRight($aFileList[$i], 10) ; выражение part01.rar
   $var3 = StringRight($aFileList[$i], 4) ; отделяем расширение файла
   $var4 = StringLeft($aFileList[$i], 8) ; отделяем имя файла от расширения
   
   Select
    Case ($var1 = "part1.rar" OR $var2 = "part01.rar")
	 	_RunDOS(@ScriptDir &'\7z.exe e -y '& $sINCatalog & '\' & $aFileList[$i] & ' -o'& $sTMPCatalog); распаковываем связанный архив	
    Case $var3 = ".LZH" 
        _RunDOS('xcopy /y '& $sINCatalog & '\' & $aFileList[$i] &' '& $sTMPCatalog) ; копируем файлы по маске
		_RunDOS('xcopy /y '& $sINCatalog & '\' & $var4 & '(s)' &' '& $sTMPCatalog) ; копируем файлы сопроводиловки
	 EndSelect
	

Next 
$aFileListTmp = _FileListToArray($sTMPCatalog, '*', 1)  

For $i = 1 To UBound($aFileListTmp) - 1 
   $var1 = StringRight($aFileListTmp[$i], 9) ; выражение part1.rar
   $var2 = StringRight($aFileListTmp[$i], 10) ; выражение part01.rar
   $var3 = StringRight($aFileListTmp[$i], 4) ; отделяем расширение файла
   $var4 = StringLeft($aFileListTmp[$i], 8) ; отделяем имя файла от расширения
   
   Select
    Case $var3 = ".LZH" 
	 	_RunDOS(@ScriptDir &'\7z.exe e -y '& $sTMPCatalog & '\' & $aFileListTmp[$i] & ' -o'& $sOUTCatalog & '\' & $var4) 
        _RunDOS('xcopy /y '& $sTMPCatalog & '\' & $var4 & '(s)' &' '& $sOUTCatalog & '\' & $var4 & '') ; копируем файлы сопроводиловки
	 EndSelect
Next