Visual Basic - RESP: Buscar Extension en Carpetas y Subcarpetas

Hola.. entinedo a la perfeccion tu proble.. el codigo que puse fue para que dieras una idea, no esperes que te hagamos los programas!!, te voy a dar la solucion SOLO POR QUE A OTROS LE PUEDE SERVIR..!!!

Private Sub Command1_Click()
'----------------------------------------------------------
'Agregar la referencia a Microsoft Scripting Runtime
'----------------------------------------------------------

On Error GoTo Errores

Dim Indice As Integer
Dim Archivo As File
Dim Directorio As Folder
Dim Sistema As FileSystemObject
Dim SubDirectorio As Folder

Indice = 0
Set Sistema = New FileSystemObject
Set Directorio = Sistema.GetFolder("F:\Musica")

For Each Archivo In Directorio.Files
Me.Caption = Archivo.Name
If Trim(UCase(Mid(Trim(Archivo.Name), Len(Trim(Archivo.Name)) - 2, 3))) = "MP3" Then
List1.AddItem Archivo.Name
Indice = Indice + 1
End If
DoEvents

Next Archivo

For Each SubDirectorio In Directorio.SubFolders
Me.Caption = Directorio.Path & "\" & SubDirectorio.Name
For Each Archivo In SubDirectorio.Files
Me.Caption = Archivo.Name
If Trim(UCase(Mid(Trim(Archivo.Name), Len(Trim(Archivo.Name)) - 2, 3))) = "MP3" Then
List1.AddItem Archivo.Name
Indice = Indice + 1
End If
DoEvents

Next Archivo
DoEvents
Next

MsgBox "archivos encontrados " & Str(Indice + 1)

Errores:
'Error de permiso denegado
If Err.Number = 70 Then
Resume Next
End If

End Sub

Y CUANDO LA RESPUESTA NO SEA LA QUE ESPERAS..SE MÁS AMABLE..

//SALUDOS..

Gracias por tu esforzada y rápida respuesta, pero ya me dieron ayer mas de una solucción en otro foro

http://www.canalvisualbasic.net/forum/forum_posts.asp?TID=31253

ESPERO QUE A OTROS LES PUEDA SERVIR LO QUE PUSISTE PERO A MI NO. NO SOLO NECESITO QUE ME LISTE EL NOMBRE DEL ARCHIVO SIO TAMBIEN EL DIRECTORIO Y SUBDIRECTORIO DONDE SE ENCUENTRA.

NO ERA LA RESPUESTA QUE ESPERABA... PERO HE SIDO AMABLE...

//SALUDOS..

por fa mandarme la extencion de access 2007 porfa lo nesesito
grasias

me parece que no sabes mucho se programacion, con el codigo expuesto se puede hacer todo lo que tu necesitas...

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/230-listar-archivo-directorio-con-fso.htm

ya, ahora resulta que si lo puedo hacer pero no funciona lo que quiero y me mandas a una pagina que parece que de ahi sacaste lo que pusiste y eso que era para ayudar a los demas.
te dejas de tantas ayudas y responde lo que tienes que responder cuando lo tienes que responder y si no no digas nada.
el codigo que me pusiste, lo repito, no hace lo que yo quiero y si crees que eres el unico que sabe mucho de programacion estas bastante equivocado, leyendo tus respuestas, te digo

¡dejas mucho que desear como programador!

mr smiith do not answer, please!!

jajajaj.. bueno johnny.. "--!dejas mucho que desear como programador! --", no tienes idea, no te voy a seguir el jueguito, PRINCIPIANTE...jajajajaj... no tienes idea..