ArcPath = C:\Test.zip
OutPath = C:\Папка распаковки
Shell := ComObjCreate("Shell.Application")
Items := Shell.NameSpace(ArcPath).Items
Items.Filter(73952, "*")
Shell.NameSpace(OutPath).CopyHere(Items, 16)
), но мне лень его переписывать - он отлично выполняет свою функцию. Проблема в том, что у некоторых пользователей некоторые файлы не загружаются. То ли вина хостинга, то ли ОС - не пойму. Сам никогда такого не встречал, у меня 100 из 100 работает. Просто хочу добавить для таких невезучих кнопку: "Скачать вручную", где они скачают zip-архив с обновлением, запихнут его в папку с скриптом и запустят скрипт, а тот его распакует и обновится. Вот так и живем.]]>SHCONTF_FASTITEMS = 0x02000, // hint that client is only interested in items that can be enumerated quickly
Так а скрытые файлы внутри были?
Да. При том скрытые файлы у меня распаковывает без указания 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)]]>Const SHCONTF_FASTITEMS = 8192 ' ускорение поиска (по индексации)
например индексирование
Э-э-э... А какой фильтр за индексирование отвечает?
]]>то надо указывать и все остальные
Нет. Не все. )))
]]>