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

ник: Анатолий (Киев)
Вот еще функция, выполняющая поиск конкретного файла во всех вложенных папках, начиная
с указанной.

Private Declare Function apiSearchTreeForFile Lib "ImageHlp.dll" Alias _         "SearchTreeForFile" (ByVal lpRoot As String, ByVal lpInPath _         As String, ByVal lpOutPath As String) As Long Function fSearchFile(ByVal strFilename As String, _             ByVal strSearchPath As String) As String 'Returns the first match found     Dim lpBuffer As String     Dim lngResult As Long     fSearchFile = ""     lpBuffer = String$(1024, 0)     lngResult = apiSearchTreeForFile(strSearchPath, strFilename, lpBuffer)     If lngResult <> 0 Then         If InStr(lpBuffer, vbNullChar) > 0 Then             fSearchFile = Left$(lpBuffer, InStr(lpBuffer, vbNullChar) - 1)         End If     End If End Function