'check if file exist and when found show the location
'btw: it will only find the first one!
'just change the code to find all
'use as:

'MsgBox FindFile("c:\", vFile$) & vFile$

Public Function FileExist(Path$) 
as
 Integer
    
dim
 x

    x = FreeFile

    On Error Resume Next
    
open
 Path$ For 
input
 
as
 x
    If Err = 0 Then
        FileExist = True
    Else
        FileExist = False
    
end
 If
    
close
 x

End Function

Public Function FindFile(ByVal Path 
as
 String, ByVal File 
as
 String) 
as
 String
  
dim
 DirName 
as
 String, LastDir 
as
 String
  
  If File = "" Then 
exit
 Function
  If Right(Path, 1) <> "\" Then Path = Path & "\"
  
  DirName = Dir(Path & "*.*", vbDirectory)
  
do
 While Not FileExist(Path & File)
  
    If DirName = "" Then 
exit
 Do
    DoEvents
    If DirName <> "." And DirName <> ".." Then
      If (GetAttr(Path & DirName) And vbDirectory) = vbDirectory Then
        LastDir = DirName
        DirName = FindFile(Path & DirName & "\", File)
        If DirName <> "" Then
          Path = DirName
          
exit
 Do
        
end
 If
        DirName = Dir(Path, vbDirectory)
        
do
 Until DirName = LastDir Or DirName = ""
          DirName = Dir
        Loop
        If DirName = "" Then 
exit
 Do
      
end
 If
    
end
 If
    DirName = Dir
  Loop
  
  If FileExist(Path & File) Then FindFile = Path

End Function