Серый форум — AHK: Распаковка Zip-архива

Re: AHK: Распаковка Zip-архива

null@example.com (Vsevolod) — Sat, 19 Dec 2020 20:41:24 +0000

teadrinker
Всё работает, спасибо большое

Re: AHK: Распаковка Zip-архива

null@example.com (teadrinker) — Sat, 19 Dec 2020 20:22:54 +0000

Попробуйте поменять 16 на 20.

Re: AHK: Распаковка Zip-архива

null@example.com (Vsevolod) — Sat, 19 Dec 2020 20:09:02 +0000

teadrinker
Здравствуйте, а можно ли сделать так что бы он делал это в фоновом режиме, незаметно для пользователя?
У меня вот это работает.

ArcPath = C:\Test.zip
OutPath = C:\Папка распаковки

Shell := ComObjCreate("Shell.Application")
Items := Shell.NameSpace(ArcPath).Items
Items.Filter(73952, "*")
Shell.NameSpace(OutPath).CopyHere(Items, 16)

Re: AHK: Распаковка Zip-архива

null@example.com (belyankin12) — Thu, 16 Feb 2017 11:02:21 +0000

Stealzy, спасибо за предложение. Мой код автообновления работает отлично, хоть я его написал криво очень (сейчас, когда набрался опыта, мне легко судить, ага ), но мне лень его переписывать - он отлично выполняет свою функцию. Проблема в том, что у некоторых пользователей некоторые файлы не загружаются. То ли вина хостинга, то ли ОС - не пойму. Сам никогда такого не встречал, у меня 100 из 100 работает. Просто хочу добавить для таких невезучих кнопку: "Скачать вручную", где они скачают zip-архив с обновлением, запихнут его в папку с скриптом и запустят скрипт, а тот его распакует и обновится. Вот так и живем.

Re: AHK: Распаковка Zip-архива

null@example.com (Flasher) — Wed, 15 Feb 2017 23:56:10 +0000

Данный фильтр нужен-то в основном при больших списках. При маленьких поиск индексированного, конечно, лишний.

Re: AHK: Распаковка Zip-архива

null@example.com (teadrinker) — Wed, 15 Feb 2017 23:52:38 +0000

Ну, не поленился, проверил: архив в 300 MB с большим количеством разных файлов — что с этим фильтром, что без него — примерно одинаково, без него даже быстрее получилось.

Re: AHK: Распаковка Zip-архива

null@example.com (Flasher) — Wed, 15 Feb 2017 23:29:13 +0000

Здесь про only ничего не написано, да и не подтверждалось тестами.

Re: AHK: Распаковка Zip-архива

null@example.com (teadrinker) — Wed, 15 Feb 2017 23:22:04 +0000

По-моему, это не совсем то:

ShObjIdl.idl пишет:

SHCONTF_FASTITEMS = 0x02000, // hint that client is only interested in items that can be enumerated quickly

Re: AHK: Распаковка Zip-архива

null@example.com (Flasher) — Wed, 15 Feb 2017 23:01:53 +0000

Malcev
Ну, вы, поди, на одной системе сидите. Я на Win 7 x86. Тут у меня иначе. На XP, ЕМНИП, тоже.

Re: AHK: Распаковка Zip-архива

null@example.com (Malcev) — Wed, 15 Feb 2017 22:59:47 +0000

Так а скрытые файлы внутри были?

Да. При том скрытые файлы у меня распаковывает без указания SHCONTF_INCLUDESUPERHIDDEN и SHCONTF_INCLUDEHIDDEN.
Так работает:

ArcPath = C:\NTUSER.zip
OutPath = C:\TEMP
Shell := ComObjCreate("Shell.Application")
Items := Shell.NameSpace(ArcPath).Items
Shell.NameSpace(OutPath).CopyHere(Items, 16)

Либо так:

ArcPath = C:\NTUSER.zip
OutPath = C:\TEMP
Shell := ComObjCreate("Shell.Application")
Items := Shell.NameSpace(ArcPath).Items
Items.Filter(8192+64, "*")
Shell.NameSpace(OutPath).CopyHere(Items, 16)

Re: AHK: Распаковка Zip-архива

null@example.com (Flasher) — Wed, 15 Feb 2017 22:55:22 +0000

Malcev пишет:

Const SHCONTF_FASTITEMS = 8192 ' ускорение поиска (по индексации)

У меня брал.

Re: AHK: Распаковка Zip-архива

null@example.com (teadrinker) — Wed, 15 Feb 2017 22:53:15 +0000

Malcev пишет:

например индексирование

Э-э-э... А какой фильтр за индексирование отвечает?

Re: AHK: Распаковка Zip-архива

null@example.com (Flasher) — Wed, 15 Feb 2017 22:47:38 +0000

Malcev
Так а скрытые файлы внутри были?

Malcev пишет:

то надо указывать и все остальные

Нет. Не все. )))

Re: AHK: Распаковка Zip-архива

null@example.com (Malcev) — Wed, 15 Feb 2017 22:42:54 +0000

Сделал тест - если не указывать ничего в фильтрах, то все работает.
Если же указать, хоть один из них, например индексирование, то надо указывать и все остальные.

Re: AHK: Распаковка Zip-архива

null@example.com (teadrinker) — Wed, 15 Feb 2017 22:31:57 +0000

Ну, я здесь небольшой спец, но гугл об этом ничего не знает.