Рекурсивная распаковка

[Flasher]

Iori
Ну, так чем проверка-то закончилась?

[Iori]

Flasher

Ну, так чем проверка-то закончилась?

К сожалению не смог этот же компьютер проверить. Чинил его у приятеля.
На моём всё работает.

Здесь другая проблема.
Ваш скрипт не хочет распаковывать вот этот файл. Именно этот.
http://rghost.net/8kJZNXbPd
https://www.virustotal.com/en/file/9854 ... /analysis/

Стоит 7-Zip 9.38. Сам 7zip открывает без проблем.
Total7Zip тоже открывает через CTRL+PAGEDOWN.

[Flasher]

Iori
Почему-то листинг этого архива не выводит отдельно папку PORTABLE.
Я создал ровно такой же архив методом Deflate, который там же и применялся, но никаких проблем не возникло. Это нужно с Игорем выяснять.

[Iori]

Flasher

Понятно.
Ладно, подождём. Может Игорь исправит в следующей бэте.

[Nick]

Вопрос по поводу этого скрипта.
Возможно ли как-то повысить стабильность работы (а также, по возможности, и скорость), т.е. этот скрипт работает через несколько раз (довольно нестабильно). Что нужно изменить, чтобы была возможность распаковки в противоположную панель?
И можно ли как-то еще сделать, чтобы скрипт распаковывал различные форматы, а не только, те, которые указаны в нем?

[Flasher]

а также, по возможности, и скорость

Меня скорость устраивает. Ничего принципиально тут не изменить. Вся ноша фактически на утилите.

т.е. этот скрипт работает через несколько раз

Боюсь, мне это ни о чём не говорит.

Что нужно изменить, чтобы была возможность распаковки в противоположную панель?

У скрипта иное предназначение (см. описание). Для этого есть иные варианты.

И можно ли как-то еще сделать, чтобы скрипт распаковывал различные форматы, а не только, те, которые указаны в нем?

Он распаковывает ровно те форматы, которые поддерживает утилита. Какие ещё иные форматы востребованы?

[Nick]

Ничего принципиально тут не изменить

Возможно это из-за кодировок? Имеется в виду хотя бы появление папок в панели.

мне это ни о чём не говорит

Просто не работает. Начинает работать после вызова скрипта несколько раз подряд.

Для этого есть иные варианты

Данный скрипт работает еще более нестабильно, но если срабатывает, то работает сразу.

распаковывает ровно те форматы, которые поддерживает утилита

Дело в том, что 7-zip пытается распаковать даже те форматы, которые официально не поддерживаются (да и в скрипте не все поддерживаемые указаны). Как можно изменить, чтобы распаковывал не только те, которые указаны в скрипте, а также и других расширений?

[Flasher]

Имеется в виду хотя бы появление папок в панели.

А автообновление в ТС включено?

Начинает работать после вызова скрипта несколько раз подряд.

А если в последней строке вставить ... Sub Quit : WSCript.Sleep 50 : Set ...?

Данный скрипт работает еще более нестабильно

Дело не в стабильности, а в предназначении. Если нам нужно распаковывать в другую панель, то зачем тут вообще рекурсия, установка курсора и т.п., если можно обходиться более простыми средствами (вроде этого)?

даже те форматы, которые официально не поддерживаются

Например, какие?

да и в скрипте не все поддерживаемые указаны

Какие не указаны?

Как можно изменить, чтобы распаковывал не только те, которые указаны в скрипте, а также и других расширений?

Это зависит от тех жизненно необходимых форматов, которые я просил перечислить.

[Iori]

Flasher,

Давно использую ваш модифицированный (7зип gui) скрипт по распаковке с помощью 7зип.
Последнее время заметил что он не хочет распаковывать некоторые зип архивы. Дело не в 7зипе а скорее всего в скрипте.
Нет никаких ошибок, просто скрипт как будто не срабатывает.

Вот пример: http://rghost.net/8QmbzFqYS

[Flasher]

Iori
Дело и в утилите тоже. Её листинг при определённых методиках сжатия игнорирует одиночные папки, что ломает фильтрацию. Если особо не заморачиваться с распаковкой одиночных папок, то можно добавить выделенное в соотв. строке (смотря какой именно скрипт):

• If Sum > 0 Or FSO.GetFile(Arch).Size Then

Правда, если в архиве окажутся только нулёвки, то это не сработает. Можно, конечно, заморочиться с построчным чтением, но это неслабо скажется на скорости вывода.
Хотя есть ещё один способ, но он касается только zip. Если с другими типами такой проблемы не наблюдается, то в этой части могу исправить.

[Iori]

Flasher

Вот скрипт который вы подправили под 7зип gui.

Что значит одиночные папки? Папки без файлов?

Вроде

Код: Выделить всё

If Sum > 0 Or FSO.GetFile(Arch).Size Then

помогла.

[Flasher]

Iori
Ясно, лучше убрать код. Главное было найти строку, сам номер строки уже неважен.
А насчёт "вроде помогла" я намекал, что это полурешение с лишней родительской папкой.
Поэтому актуальным остаётся последний вопрос и предложение.

[Iori]

Хотя есть ещё один способ, но он касается только zip. Если с другими типами такой проблемы не наблюдается, то в этой части могу исправить

Отлично
Можмо попробовать, буду рад.

[Flasher]

Iori
Правки в исходнике (а именно: 1, 2).

[Iori]

Flasher

Я думал вы говорили про

Код: Выделить всё

If Sum > 0 Or FSO.GetFile(Arch).Size Then

. Убрать код из скрипта.