En 5 minutos encontré ésto, no es mio: Agrega un command1 y un text1
'Función Api SearchTreeForFile
Private Declare Function SearchTreeForFile Lib "imagehlp" ( _
ByVal RootPath As String, _
ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long
'Constante que indica el máximo de paths a recorrer
Private Const MAX_PATH = 260
Private Sub Command1_Click()
Dim temp As String, Ret As Long
'Creamos un bufer para almacenar el resultado osea del path
temp = String(MAX_PATH, 0)
'Retorna 1 si se encontró
Ret = SearchTreeForFile(Left(App.Path, 3), Text1.Text, temp)
If Ret <> 0 Then
MsgBox "Archivo encontrado en: " + Left$(temp, InStr(1, temp, Chr$(0)) - 1), vbInformation
Else
MsgBox "Archivo no encontrado", vbInformation
End If
End Sub
Private Sub Form_Load()
Command1.Caption = " -> Buscar archivo "
End Sub
Buscar más, nadie te va a hacer el programa qe pidas, éste lo tienes de milagro.
Saludos.