Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час

'*************************************************************** '   Подписка:   "Access 2000 - программирование и готовые решения" '   Тема:       Application.FileSearch '   Пример 1:   Поиск файлов по шаблону '   Версия:     1 от 19.10.2001 '   Copyright © Leader Access, Ltd '   Сайт:       http://www.leadersoft.ru '   Почта:      support@leadersoft.ru '   Примечание: При использовании в коммерческих целях - оплата 100 рублей ' Option Compare Database Option Explicit '============================================================== ' Поиск файлов по шаблону Private Sub butRead_Click() Dim i As Long On Error GoTo 999     With Application.FileSearch        .NewSearch        .LookIn = Me.myFolder ' = c:\        .FileName = Me.myExt ' = *.mdb        .SearchSubFolders = Me.myFflagSubFolder ' = True        If .Execute(SortBy:=msoSortByFileName, _                 SortOrder:=msoSortOrderAscending) > 0 Then             Me.progress = "Count=" & .FoundFiles.Count & vbCrLf             For i = 1 To .FoundFiles.Count                 Me.progress = Me.progress & .FoundFiles(i) & vbCrLf             Next i        End If     End With     Exit Sub      'Выходим из программы 999:     MsgBox Err.Description     Err.Clear 'Очищаем поток от ошибок End Sub