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

Этот код поиска предложил Анатолий (Киев).
Прекрасно работает, но вот возникла необходимость искать не по полному названию.с расширением.
А заменить на *.* - не удаётся сделать..
Или (текс*.*)
Помогите пожалуйста...