Поиск файлов через FileSearch не работает, находит все кроме

[Sairan]

архивов *.zip и еще некоторых типов в чем загвоздка
Dim FoundFilesCount As Integer
Dim fs As FileSearch
Set fs = Application.FileSearch
fs.SearchSubFolders = True
With fs
.LookIn = "C:\"
.FileType = msoFileTypeAllFiles
.MatchTextExactly = False
.FileName = "*.*"
If .Execute() > 0 Then
FoundFilesCount = .FoundFiles.Count
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i))
Next i
Else
MsgBox "There were no files found."
End If
End With

[fixin.ru]

Используй нерекурсивный поиск... (идея)

[Sairan]

В смысле нерекурсивный поиск

[fixin.ru]

Ну то бишь другими методами...
А может у тебя заполнен список папок, где искать или другие ограничения стоят...

[corgi]

это..... а где здесь рекурсия

попробуй использовать FSO!

[fixin.ru]

А что такое ФСО?

[tyomitch]

А что такое ФСО?

Scripting.FileSystemObject

[corgi]

чтобы более подробно узнать можно воспользоваться поиском