Поиск файлов в скрытых и системных папках

[Sprat]

Хочу найти на компьютеры все файлы с разрешением .wab, но VBA котегорично отказывается искать данные файлы в скрытых и системных папках. Помогите!!!

Данный вариант не помогает:

Sub S_1()
With Application.FileSearch
.LookIn = Dir("C:\", vbDirectory + vbHidden + vbSystem)
.SearchSubFolders = True
.Filename = "*.wab*"
If .Execute > 0 Then
MsgBox "Число найденных файлов = " & .FoundFiles.Count
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Не найдено подходящих файлов"
End If
End With
End Sub

[EducatedFool]

Это пробовали? http://excelvba.ru/code/FilenamesCollection

Set coll = FilenamesCollection(ПутьКПапке, ".wab")

[doober]

Указываем папку,просмотрит все вложенные

[Sprat]

Сообщение от EducatedFool

Это пробовали? http://excelvba.ru/code/FilenamesCollection

Set coll = FilenamesCollection(ПутьКПапке, ".wab")

Зачем мне искать файл если я знаю где он лежит!!!??? Вам не кажется что это глупая операция!!!!!!!!!!

Мне нужно просканировать весь диск и найти все файлы!!!!!!!!!

[EducatedFool]

Сообщение от Sprat

Зачем мне искать файл если я знаю где он лежит!!!??? Вам не кажется что это глупая операция!!!!!!!!!!

Мне нужно просканировать весь диск и найти все файлы!!!!!!!!!

А вам не кажется, что вы невнимательно читали статью?
Может, конечно, я и туплю, - но, вроде бы, я предложил вам в точности то, что требовалось...

Если использовать мою функцию - ваш макрос будет таким:

sub test()
  КолвоФайлов = FilenamesCollection("c:\", ".wab").count
  if КолвоФайлов>0 then msgbox "Число найденных файлов = " & КолвоФайлов
end sub

PS: И используйте побольше восклицательных знаков - сейчас вы их ставите слишком мало...

[Sprat]

Сообщение от doober

Указываем папку,просмотрит все вложенные

Просто СУПЕР!!!! Большое спасибо. Есть только одна проблема, что бы просканировать диск объёмом около 500 GB требуется более 10 минут. Нельзя ли как то ускорить процесс?

[Sprat]

Сообщение от EducatedFool

А вам не кажется, что вы невнимательно читали статью?
Может, конечно, я и туплю, - но, вроде бы, я предложил вам в точности то, что требовалось...

Если использовать мою функцию - ваш макрос будет таким:

sub test()
  КолвоФайлов = FilenamesCollection("c:\", ".wab").count
  if КолвоФайлов>0 then msgbox "Число найденных файлов = " & КолвоФайлов
end sub

PS: И используйте побольше восклицательных знаков - сейчас вы их ставите слишком мало...

К сожалению так же не ищет в скрытых и системных папках

[doober]

Сообщение от Sprat

Просто СУПЕР!!!! Большое спасибо. Есть только одна проблема, что бы просканировать диск объёмом около 500 GB требуется более 10 минут. Нельзя ли как то ускорить процесс?

Можно,но надо сменить среду программирования

[Sprat]

Сообщение от doober

Можно,но надо сменить среду программирования

А если я меняю среду программирования. Потом все антивирусники ругаться начинают. Выход один VBA в Excel