Добрый день!
Помогите разобраться.

Нужно получить информацию о количестве файлов в архиве и присвоить данное число переменной.
Формат архива ZIP, но файлы выгружаются с другими расширениями, например ".31". В идеале было бы использовать ниже описанный способ, метод NameSpace, но при попытке обработать файл с расширением НЕ .zip вылетает ошибка
Ошибка Run-time error '-2147467259 (80004005)'
Method "NameSpace' of object 'IShellDispatch6' failed

Код
Sub uz()
Dim objShellApp As Object
Set objShellApp = CreateObject("Shell.Application")
'On Error Resume Next
cou = objShellApp.Namespace(("C:\Users\XXX\Documents\xxx00355.31")).Items.Count
'On Error GoTo 0
End Sub

Если же данный файл переименовать в .zip то метод работает, но в связи со спицификой работы, файлы переименовывать не желательно.
Есть ли способ получения информации об архиве без переименования файла?

Есть способ с использованием cmd unzip с записью в текстовый файл, но с ним много заморочек.

Подскажите пожалуйста как можно перенести список имен файлов без расширений из какой либо папки в exel?