Try this. I have not debug it yet. Basically, it just index through all your subdirectories until find the file that ended with your extention. You might have to fix up some syntax error as I don't have a compiler to check the code at this time
.
===================================
Private Function FindFile(ByVal tDir As String, ByVal tFile as String) as String
Try
Dim strResult as string
Dim fInfo As FileInfo
Dim dInfo As New DirectoryInfo(tDir)
Dim subDir() As DirectoryInfo
Dim tCount As Integer
For Each fInfo In dInfo.GetFiles
if fInfo.FullName.EndWith(tFile)
Return dInfo.FullName
Next
subDir = dInfo.GetDirectories()
For tCount = 0 To subDir.Length - 1
strResult = FindFile(subDir(tCount).FullName)
If strResult <> Nothing
return strResult
Next
Catch Exp As Exception
MsgBox("Exception: " & Exp.Message)
End Try
return strResult
End Sub
========================================