请教高人,可否给一个VB查找文件返回文件路径的函数

没有现成的函数要自己编函数。
Function FindDirectory(RootPath As
String, Mydirectory() As String)
Dim intResult, I, intFind As Integer
‘首先查找根目录下的所有子目录
MyPath = "c:\" 注释： 指定路径c:\。
MyName = Dir(MyPath, vbDirectory) 注释： 找寻第一项。
intResult = 1
ReDim Mydirectory(intResult) ‘初始化动态数组
Do While MyName < > "" 注释： 开始循环。
注释： 跳过当前的目录及上层目录。
If MyName < > "." And MyName < > ".." Then
注释： 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName)
And vbDirectory) = vbDirectory Then

注释： 如果它是一个目录，将其名称存储在一个数组里。
Mydirectory(intResult) = MyPath & MyName
intResult = intResult + 1
ReDim Preserve Mydirectory(intResult)
‘分配动态数组实际的元素个数，并保留数组中的数据
End If
End If
MyName = Dir 注释： 查找下一个目录。
Loop
‘在所有目录里分别查找文件是否存在。
For I = 1 To UBound(Mydirectory)-1
MyFile = Mydirectory(I) & "\win.ini"
intFind = Len(Dir(MyFile))
If intFind < > 0 Then MsgBox "找到文件" &
Dir(MyFile) & "在：" & Mydirectory(I)
Next I
End Function

也可以考虑用API函数SearchTreeForFile