Поиск Файлов из VB

[EvilCoder]

<DELETE>

[Amed]

Вот...

[kif]

Public Function FindFile(ByVal File_NameOrMask As String, ByVal RootPath As String) As String
Dim strBuffer As String
Dim lngResult As Long
Const MAX_PATH = 260

FindFile = ""
strBuffer = String$(MAX_PATH, 0)
lngResult = SearchTreeForFile(RootPath, File_NameOrMask, strBuffer)
If lngResult <> 0 Then
If InStr(strBuffer, vbNullChar) > 0 Then
FindFile = Left$(strBuffer, InStr(strBuffer, vbNullChar) - 1)
Else
FindFile = "Файлы не найдены..."
End If
Else
FindFile = "Файлы не найдены..."
End If
End Function

[kif]

В модуле:
Public Declare Function SearchTreeForFile Lib "ImageHlp.dll" (ByVal lpRoot As String, ByVal lpInPath As String, ByVal lpOutPath As String) As Long