Visual Basic - URGENTE!

Hola miren les cuento, tengo este codigo:

Dim objBD As Access.Application, objReport As Access.AccessObject
Set objBD = New Access.Application
objBD.OpenCurrentDatabase "C:\proyectos\adp1.adp", False
For Each objReport In objBD.CurrentProject.AllReports
Debug.Print objReport.name
List2.AddItem objReport.name
Next

Este codigo sirve para q busque y muestre en una lista los informes que hay en la base de datos adp1. ¿Como puedo hacerlo para que si tengo mas bases de datos con extension adp, tb me muestre sus informes, es decir, que me busque todos los informes de las bases de datos que haya en la carpete proyecots, he probado de poner esto: *.adp en la ruta linea donde pongo la ruta en el codigo, pero no me sale. Me pueden ayudar como hacerlo?. Gracias.

Wenas.Lo que se me ocurre es que obtengas todas los archivos con extension *.adp de la carpeta Proyectos.El codigo seria el siguiente:

'agrega la referencia Microsoft Scripting Runtime (scrrun.dll)

Dim FSO as new FileSystemObject
Dim MyFile as File
Dim MyFiles as Files
Dim MyFolder as Folder

set MyFiles=MyFolder.Files

For Each MyFile in MyFiles

msgbox MyFile.Path 'muestra la ruta del archivo
'con esta propiedad ya sabes la ruta de cada base de datos de la carpeta
next

Wenas.Lo que se me ocurre es que obtengas todas los archivos con extension *.adp de la carpeta Proyectos.El codigo seria el siguiente:

'agrega la referencia Microsoft Scripting Runtime (scrrun.dll)

Dim FSO as new FileSystemObject
Dim MyFile as File
Dim MyFiles as Files
Dim MyFolder as Folder

set MyFiles=MyFolder.Files

For Each MyFile in MyFiles

msgbox MyFile.Path 'muestra la ruta del archivo
'con esta propiedad ya sabes la ruta de cada base de datos de la carpeta
next

Espero que te sirva , si no pues escribe de nuevo y lo miramos.Saludos

Hola y gracias. Mira te comento, me da un error en la 5 fila en la que pone set MyFiles=MyFolder.Files
Pero creo que esto lo que hace es mostrarte todas la bases de datos con extension adp, y esto ya lo he conseguido, lo que quiero hacer es que te muestre todos los informes que de todas las bases de datos que haya en la carpeta.

Gracias.!!!
SAludos