Файловая система Запаковать все файлы в подпапках

[BlagoYar]

Есть много папок (в некоторых есть несколько подпапок).
Нужно запаковать все в bz2 (каждый отдельно и оставить там, где был исходник) и удалить исходные.

Как можно реализовать это?

 

[All2khoff]

Посмотрите эту тему, возможно вам это даст пару идей Функции для обработки путей к файлам или папкам.

 

[BlagoYar]

Посмотрите эту тему, возможно вам это даст пару идей Функции для обработки путей к файлам или папкам.

Да дело в том, что я уже получил список в массив

$sFileList = _FO_FileSearch(@ScriptDir, '', True, 125, '', 1, 1)
    $sList=_ArrayDisplay($sFileList)

Вопрос уже в другом - как обработать каждый файл отдельно

Пытаюсь как-то так, но чёт не получается

For $i = 0 To $sList[0]
  $aFind = StringRegExp($sList[$i], ".*", 1)
    MsgBox(4096, "Список", "'" & $aFind & "'")
  If @error Then ContinueLoop
  If $aFind[0] = $aFind Then ContinueLoop
;~   $ArraySearch=_ArraySearch($ArrayList, $aFind)
;~   If $ArraySearch=$ArrayList Then ContinueLoop

Next