Listar todos los ficheros de un directorio

Hola Javier,

Listar todos los ficheros de un directorio
incluir la ruta completa
todas las subcarpetas contenidas
indicar el tamaño y la fecha de modificación

Yo haria algo asi:

'--Inicio Codigo--
Sub test()
Dim miRuta As String
Dim Fila As Long
Dim i As Long
Dim miHoja As Worksheet

miRuta = "C:\Documents and Settings\juan\Mis documentos\prueba\"
Set miHoja = Worksheets(1)

With Application.FileSearch
.NewSearch
.LookIn = miRuta
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
If .Execute > 1 Then
If .FoundFiles.Count = 0 Then
MsgBox "No se ha encontrado ningun archivo", vbInformation
Exit Sub
End If
Fila = 1
With miHoja.Range("A1:C1")
.Value = Array("Archivo", "Tamano", "Fecha Modificacion")
.Font.Bold = True
End With
For i = 1 To .FoundFiles.Count
Fila = Fila + 1
miHoja.Cells(Fila, 1) = .FoundFiles(i)
miHoja.Cells(Fila, 2) = FileLen(.FoundFiles(i))
miHoja.Cells(Fila, 3) = FileDateTime(.FoundFiles(i))
Next i
End If
End With
End Sub
'--Final Codigo--

Hola KL,
Muchas gracias.

En general funciona bien, pero lo estaba probando para obtener los archivos
de Favoritos ( C:\Documents and Settings\juan\Favoritos\ ), son de tipo
acceso directo (accesos directo a internet), y no sé por qué razón, algunos
archivos el código no los encuentra (digamos que aproximadamente un 20% no
los encuentra).


Por ejemplo, estos cuatro archivos (accesos directos):

Ruta completa

C:\Documents and Settings\juan\Favoritos\Anuncios gratis en segundamano.es
anuncios gratuitos clasificados de pisos, coches, motos, empleo, muebles
C:\Documents and Settings\juan\Favoritos\AltaVista - Babel Fish Traducción
C:\Documents and Settings\juan\Favoritos\Subir-Imagenes.com - subir
imagenes, alojar fotos, hosting imagenes, banco de imagenes, subir fotos,
publicar fotos
C:\Documents and Settings\juan\Favoritos\Diarios\elmundo.es - Hemeroteca

Nombre del Archivo

Anuncios gratis en segundamano.es anuncios gratuitos clasificados de pisos,
coches, motos, empleo, muebles
AltaVista - Babel Fish Traducción
Subir-Imagenes.com - subir imagenes, alojar fotos, hosting imagenes, banco
de imagenes, subir fotos, publicar fotos
elmundo.es - Hemeroteca

Dirección URL.

http://www.segundamano.es/
http://babelfish.altavista.com/
http://www.subir-imagenes.com/
http://www.elmundo.es/elmundo/hemeroteca/


No me salen en el listado.

Estoy comprobando que todos los archivos que tienen una URL que finaliza con
éste caracter "/", no los detecta.




En esta parte del codigo:

.Value = Array("Archivo", "Tamano", "Fecha Modificacion")
.Font.Bold = True
End With
For i = 1 To .FoundFiles.Count
Fila = Fila + 1
miHoja.Cells(Fila, 1) = .FoundFiles(i)
miHoja.Cells(Fila, 2) = FileLen(.FoundFiles(i))
miHoja.Cells(Fila, 3) = FileDateTime(.FoundFiles(i))
Next i



¿se podría incluir también el Tipo de Archivo y la Dirección URL, por
ejemplo en las columnas "D" y "E"?.


Mil gracias.
Saludos

javier.



"KL" escribió:

Hola Javier,

> Listar todos los ficheros de un directorio
> incluir la ruta completa
> todas las subcarpetas contenidas
> indicar el tamaño y la fecha de modificación

Yo haria algo asi:

'--Inicio Codigo--
Sub test()
Dim miRuta As String
Dim Fila As Long
Dim i As Long
Dim miHoja As Worksheet

miRuta = "C:\Documents and Settings\juan\Mis documentos\prueba\"
Set miHoja = Worksheets(1)

With Application.FileSearch
.NewSearch
.LookIn = miRuta
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
If .Execute > 1 Then
If .FoundFiles.Count = 0 Then
MsgBox "No se ha encontrado ningun archivo", vbInformation
Exit Sub
End If
Fila = 1
With miHoja.Range("A1:C1")
.Value = Array("Archivo", "Tamano", "Fecha Modificacion")
.Font.Bold = True
End With
For i = 1 To .FoundFiles.Count
Fila = Fila + 1
miHoja.Cells(Fila, 1) = .FoundFiles(i)
miHoja.Cells(Fila, 2) = FileLen(.FoundFiles(i))
miHoja.Cells(Fila, 3) = FileDateTime(.FoundFiles(i))
Next i
End If
End With
End Sub
'--Final Codigo--