Te envío esta función que busca el archivo que le indiques el el HDD que tu quieras. Es una función muy rápida.
Espero que te sirva.
--------------------------
Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260
Private Sub Command1_Click()
Dim s As String, Ret As Long
Dim Buscado As String
Buscado = Text1.Text ' Fichero a buscar (incluir la extensión)
s = String(MAX_PATH, 0)
Screen.MousePointer = vbHourglass
Label1.Caption = "Buscando......"
Ret = SearchTreeForFile("c:\", Buscado, s)
If Ret <> 0 Then
Label1.Caption = "Encontrado en " + Left$(s, InStr(1, s, Chr$(0)) - 1)
Else
MsgBox "No encontrado!"
End If
Screen.MousePointer = vbDefault
End Sub
--------------------------
Saludos. Juanjo