Buscar archivo

[luciano]

Este ejemplo te devuelve el path si encontro el archivo, el problema es que lo hace en modo sincronico y no te devuelve el control de tu programa hasta que finalizó, por lo tanto lo congela. Si querés que no pase eso podes usar otro metodo, por ejemplo en forma recursiva usando las api findFirstFile y demas

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 Form_Load()
Dim temporal As String, Ret As Long

temporal = String(MAX_PATH, 0)
'returns 1 when successfull, 0 when failed
Ret = SearchTreeForFile("c:\", "archivo.txt", temporal)
If Ret <> 0 Then
MsgBox "Archivo encontrado en: " + Left$(temporal, InStr(1, temporal, Chr$(0)) - 1)
Else
MsgBox "archivo no encontrado!"
End If
End Sub

en el api guide tenes unos ejemplos de esto ultimo. salu2