Что нового

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

БлагоѨръ

Русь Великая, Очнись! Поднимись с колен Родная!
Сообщения
63
Репутация
-1
Есть много папок (в некоторых есть несколько подпапок).
Нужно запаковать все в bz2 (каждый отдельно и оставить там, где был исходник) и удалить исходные.

Как можно реализовать это?
 
Последнее редактирование:
Автор
БлагоѨръ

БлагоѨръ

Русь Великая, Очнись! Поднимись с колен Родная!
Сообщения
63
Репутация
-1
Посмотрите эту тему, возможно вам это даст пару идей Функции для обработки путей к файлам или папкам.
Да дело в том, что я уже получил список в массив
Код:
$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
 
Верх