DataBase - Buscar archivo PDF

Hola a todos:

Desde un pequeño formulario creado en Access quisiera realizar la búsqueda
de un archivo en formato PDF. El nombre del archivo es un número de 10
caracteres pero para el campo del formulario había pensado que fuera texto...
Esta búsqueda la tendría que realizar en varias carpetas... Sería algo
parecido al "Buscar" que existe en Windows pero solamente para un archivo en
formato PDF y en unas carpetas determinadas...

¿¿Cómo podría realizar esta búsqueda??... ¿¿Se podría hacer que directamente
se abriese el archivo??...

Gracias por anticipado...

Con Dir puedes recorrer los archivos de una carpeta y con call shell(....)
puedes abrir un archivo

--
--
**
Salu2/Regards
Ju@nK [MVP Access] 2006/09
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
www.juank.tk
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**

Gracias por la respuesta Juank, pero, ¿podrías ponerme cómo se haría el
código o si se podría hacer mediante macros?...

Lo digo porque en VBA no sé programar y te agradecería que me lo pusieras....

Por si acaso influye, tengo el Office 2000

Gracias de nuevo...

Si explicas algo mas (en que carpetas, nombre archivo, evento, ...) pues
podríamos ampliar la respuesta, no se puede hacer una pregunta generica y
pedir una respuesta concreta ¿no te parece? ;-)

Si buscas en la ayuda Dir verás un código para recorrer una carpeta y ver
los archivos que contiene.

--
--
**
Salu2/Regards
Ju@nK [MVP Access] 2006/09
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
www.juank.tk
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**

Esto te puede servir de referencia:

Public Sub prPDF()
Dim MiRuta As String
MiRuta = Dir("C:\TEMP\", vbArchive)
Do While MiRuta <> ""
Debug.Print MiRuta
If Right(MiRuta, 3) = "pdf" Then
MsgBox "He encontrado " & MiRuta, vbInformation + vbOKOnly,
End If
MiRuta = Dir
Loop
End Sub

--
--
**
Salu2/Regards
Ju@nK [MVP Access] 2006/09
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
www.juank.tk
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**

Gracias por la respuesta Juank... Te doy la razón: no se puede hacer
preguntas genéricas y esperar respuestas concretas, jeje...

La carpeta donde tendría que buscar estaría en una unidad compartida, puesto
que son muchos usuarios los que podrían buscar... La carpeta es:
\\pzfil\informes... El nombre del archivo coincidiría con el que el usuario
pondría en el cuadro de texto del formulario y, normalmente, es un número,
aunque yo el campo lo tendrá como de tipo texto... Y por último lo que quería
es que si encuentra el archivo PDF lo abra directamente y si no lo encuentra
que salga un mensaje diciendo: "Archivo no encontrado"...

Iré probando con la orientación que me has dado, pero si se te ocurre algo
más que falta para hacer lo que te he comentado antes te ruego que me lo
indiques...

Muchísimas gracias...

A la hora de trabajar con carpetas compartidas en un servidor suele ser
mucho mas cómodo mapear la unidad (net use j: \\pzfil\informes) con lo que
en todos los equipos J sería esa unidad.

para abrir el archivo puedes hacerlo con
call shell("ruta aplicación " & "ruta archivo, opciones)

--
--
**
Salu2/Regards
Ju@nK [MVP Access] 2006/09
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
www.juank.tk
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**

Gracias Juank...

Entonces, ¿cómo quedaría finalmente el código que me escribiste usando esa
opción de mapear y la opción para abrir los ficheros?...

Tienes que poner la ruta completa del Acrobat, ej.:


--
--
**
Salu2/Regards
Ju@nK [MVP Access] 2006/09
[DCE2003 ***] + VSTO [DCE2005 **]
http://juank.mvps.org http://www.juank.es
Correos personales o preguntas particulares en mi grupo
http://groups.google.es/group/juank?hl=es
www.juank.tk
¿Que es un MVP?, entérate en http://mvp.support.microsoft.com
**