Способ с переименованием оказался слишком медленным, т.к файлы лежат  на сетевых ресурсах. По использованию exec ещё не разобрался

Спасибо, буду пробовать

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

Нужно получить информацию о количестве файлов в архиве и присвоить данное число переменной.
Формат архива 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 с записью в текстовый файл, но с ним много заморочек.

все работает, но эта функция выдает название файла полностью с расширением, а надо чтоб было просто название файла допустим чтоб xxx.rtf выносил в список как xxx. Вообще я работаю с файлами .rtf и можно какнибудь сделать чтоб в сформированном списке ".rtf" подменялось пробелом? мб так проще?

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