Страницы: 1
RSS
как посчитать количество файлов в архиве?, rar zip 7z
 
rar zip 7z
как посчитать количество файлов в архиве?
возможно ли это?


конечно же распаковка во временный каталог не подходит
 
при установленном Rar или 7Zip - возможно
не совсем то но близко
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=105830&TITLE_SEO=105830-ves-rabochego-lista-v-baytakh&MID=876620&tags=&q=%D0%B1%D0%BC%D0%B2+7Zip&FORUM_ID%5B0%5D=0&DATE_CHANGE=0&order=relevance&s=%D0%9D%D0%B0%D0%B9%D1%82%D0%B8#message876620
А разобрать последнюю строку - не проблема
Изменено: БМВ - 28.01.2020 17:27:23
По вопросам из тем форума, личку не читаю.
 
БМВ, подошло
Код
z = UBound(Split(CreateObject("WScript.Shell").exec("""Rar.exe"" lt ""rar""").StdOut.ReadAll, "Имя:"))
z = UBound(Split(CreateObject("WScript.Shell").exec("""7z.exe"" l -ba -slt ""zip""").StdOut.ReadAll, "Path ="))
z = UBound(Split(CreateObject("WScript.Shell").exec("""7z.exe"" l -ba -slt ""7z""").StdOut.ReadAll, "Path ="))
z = CreateObject("Shell.Application").Namespace("zip").Items.Count

всё работает, только rar и 7z выдаёт кракозябры , нужно сменить "cp866" на "windows-1251" в этом выводе
Изменено: sareco - 30.01.2020 17:07:12
Страницы: 1
Наверх