Buscar achivo desde Acces

[Taribo007]

Bueno, eso es lo que he enetendido que necesitas, pero si quieres buscar un archivo dentro de una carpeta, puedes usare sta funcion:

Public Function BuscaArchivo(nomCarpeta As String, NomArchivo As String) As String
Dim ObjetoFSO As Object
Dim Carpeta As Object
Dim SubCarpeta As Object
Dim Archivos As Object
Dim Archivo As Object
Dim Encontrado As String

Set ObjetoFSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = ObjetoFSO.GetFolder(nomCarpeta)
Set Archivos = Carpeta.Files
For Each Archivo In Archivos
'Buscamos en los archivos de la carpeta
If Archivo.Name = NomArchivo Then
BuscaArchivo = nomCarpeta & "\" & Archivo.Name
Exit Function
End If
Next
Set Archivos = Nothing
' Buscamos en las carpetas y subcarpeta haciendo
'llamadas recursivas a la funcion
For Each SubCarpeta In Carpeta.SubFolders
Encontrado = BuscaArchivo(nomCarpeta & "\" & SubCarpeta.Name, NomArchivo)
If Nz(Encontrado, "") <> "" Then
BuscaArchivo = Encontrado
Exit Function
End If
Next
Set Carpeta = Nothing
Set ObjetoFSO = Nothing

End Function

Un saludo