Форумы 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


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.