Использование FileSearch

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Использование FileSearch

A8208

Дата: Четверг, 17.02.2011, 13:18 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Добрый день.
Помогите написать макрос для нахождения всех файлов в текущей директории.
Судя по справке VB должен срабатывать этот код, но он у меня выдаёт ошибку 445
Объясните, что я делаю не так?

[vba]

Код

Sub UserForm_Initialize_1()

With Application.FileSearch
.LookIn = CurDir & "\"
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
If .Execute > 0 Then
MsgBox "Chislo files" = " & .FoundFiles.Count"
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "Not find files"
End If
End With
End Sub

[/vba]

Сообщение отредактировал A8208 - Четверг, 17.02.2011, 13:26

Ответить

Саня

Дата: Четверг, 17.02.2011, 13:58 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

FileSearch не работает в офисах 2007, 2010
если нужен поиск в одной папке:
[vba]

Код

Sub Файлы_в()
      Dim Имя$
      Dim Папка$

      Папка = CurDir
      Имя = Dir(Папка, vbDirectory + vbSystem)
      Do While Имя <> ""  'если истина, то цикл
         MsgBox Имя
         Имя = Dir   'след. файл в папке
      Loop
End Sub

[/vba]

Сообщение отредактировал Саня - Четверг, 17.02.2011, 13:59

Ответить

A8208

Дата: Четверг, 17.02.2011, 14:57 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

Спасибо

Ответить

Саня

Дата: Понедельник, 21.02.2011, 18:29 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

вот решил сделать эмуляцию убиенного FileSearch'а - в файле класс и пример его использования
(формат оставляю намеренно, ибо в 2003 excel объект еще жив)
выбор папки поиска и опция "поиск в подпапках" работают через двойной щелчок по ячейке cool