Listar todos los ficheros de un directorio

Listar todos los ficheros de un directorio


Buenos dias:

Estaba intentando usar éste código que nos dejaron KL y Manuel Romero


'-Inicio Codigo--
Const sRuta = "C:\Documents and Settings\juan\Mis documentos\prueba\" 'ruta
hacia la carpeta
Const sFiltro = "*.*"

Sub ExtraerNombres()
Dim sBusc As String, lCont As Long

Application.ScreenUpdating = False
lCont=1
sBusc=Dir(sRuta & sFiltro)
Do While sBusc<>""
Worksheets(1).Cells(lCont + 1, "A") = sBusc
lCont=lCont+1
sBusc=Dir()
Loop
End Sub
'-Fin Codigo--



El código funciona bien pero yo necesitaba incluir la ruta completa (junto
con el nombre de los archivos)que hay en dicha carpeta ( \prueba\ ) y en
todas las subcarpetas contenidas. O sea todos los archivos. También
necesitaba indicar el tamaño y la fecha de modificación, por ejemplo en
columnas contiguas "B" y "C", de cada archivo.

PD.:
Donde pone Const sFiltro = "*.xls" yo lo he dejado así: Const sFiltro =
"*.*" porque necesito listar cualquier archivo

Muchas gracias,
djavier