RE:AYUDA POR FAVOR !! URGENTE
Ricardo:
Se utiliza la función Dir. La ayuda trae un ejemplo de como utilizarla para recorrer un directorio. Lo que debés hacer es crear una sub a la que le pasás un path y llena una matriz con los directorios contenidos en el path, pensemos que se llama ObtenerDirectorios. Luego una función que busque el archivo en el directorio que le pasás, por ejemplo llamémosla EstaElArchivo. Si inicias la matriz con el directorio C:\, podés hacer lo siguiente:
Dim M() as string, k as long, sPath as string
Redim Preserve M(0) as string
M(0)="C:\"
k=-1
do
k=k+1
ObtenerDirectorios M(k)
if EstaElArchivo(M(k) & "\Archivo.extension")=true then sPath = M(k) & "\Archivo.extension": exit for
loop until k=ubound(m)
if sPath<>"" then
msgbox "El archivo está en: " & vbcrlf & spath
else
msgbox "Archivo no encontrado"
End if
Saludos Ruri