Excel VB: Filesearch и zip файлы
 

Код Excel VB Application.FileSearch не захватывает zip файлы.

Пишут, что zip файлы XP видит как директории, однако FileSearch не находит файлы внутри zip (засада, меня бы и это устроило). Поискал в инете и нашел что проблему поднимали и рекомендовали юзать Dir или CreateObject("Scripting.FileSystemObject").GetFolder().
Однако ни том ни в другом случае нет захвата поддиректорий.

Кто знает есть ли другое решение проблемы? Я на Excel 2002-2003, может в более новых версиях такой проблемы нет?
Ниже прилагаю код кто захочет попробовать, положив в ПАПКА один файл типа zip.

Спасибо!


With Application.FileSearch
.NewSearch
.LookIn = "ПАПКА..."
.SearchSubFolders = True
'.Filename = "Run"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With


With Application.FileSearch
If .Execute() > 0 Then
MsgBox "есть zip-ы!"
end if
end with