Listar Carpetas, Archivos, SubCarpetas y Archivos de las SubCarpetas
Angelo Vernaza
Por favor me ayudan con una macro para listar las Carpetas, archivos,
SubCarpetas y archivos de las SubCarpetas en una Hoja de Excel.
Colocaria en la celda A1, la ruta de de la Carpeta madrea y que me
traiga la información de esta manera:
Columna A = Ruta Carpeta
Columna B = Nombre Archivo
Columna C = Tamaño del Archivo
Columna D = Fecha Modificación
Columna E = Tipo de Archivo
Espero que me puedan ayudar con esto.
Saludos,
Angelo V.
Héctor Miguel
> ... macro para listar las Carpetas, archivos, SubCarpetas y archivos de las SubCarpetas en una Hoja de Excel.
> Colocaria en la celda A1, la ruta de de la Carpeta madrea y que me traiga la informacion de esta manera:
> Columna A = Ruta Carpeta
> Columna B = Nombre Archivo
> Columna C = Tamaño del Archivo
> Columna D = Fecha Modificación
> Columna E = Tipo de Archivo
el siguiente ejemplo (que puedes adaptar para otras necesidades)...
1) toma la carpeta predeterminada que pongas en 'A1' (p.e. -> c:\ruta y\sub-carpeta)
2) pone en el rango 'A2:E2' los titulos para los atributos de los archivos
3) a partir de la fila 3, vacia los nombres de los archivos que se encuentren (y sus atributos)
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.
' === en un modulo de codigo 'normal' ===
Sub LIsta_de_archivos()
Application.ScreenUpdating = False
Dim Carpeta As String: Carpeta = Range("a1"): Cells.Clear
Range("a2:e2") = Array("Ruta", "Nombre", "Tamaño", "Modificado", "Tipo")
Listar_archivos_en Carpeta, True
End Sub
Sub Listar_archivos_en(Carpeta As String, Completo As Boolean)
Dim Archivo, SubCarpeta, Fila As Long
Fila = Range("a65536").End(xlUp).Row + 1
With CreateObject("scripting.filesystemobject")
With .GetFolder(Carpeta)
For Each Archivo In .Files
With Archivo
Range("a" & Fila & ":e" & Fila) = Array( _
Application.Substitute(.Path, .Name, ""), .Name, .Size, .DateLastModified, .Type)
End With
Fila = Fila + 1
Next
If Completo Then
For Each SubCarpeta In .SubFolders
Listar_archivos_en SubCarpeta.Path, True
Next
End If
End With
End With
Range("a1:e1").EntireColumn.AutoFit
Range("a1") = Carpeta
Debug.Print ActiveSheet.UsedRange.Address
End Sub
Angelo Vernaza
wrote:
Excelente Muchas Gracias Héctor.
Saludos,
Infinitogool
Hola Héctor Miguel
... una macro sensacional
... sin palabras
nunca sobra un agradecimiento.... creo
un saludo
Pedro J.
Posdata:
Por cierto, tu frase
... si tienes algun dato mas "en el tintero" ? (es hora de comentarlo)
me ha hecho recordar viejas cosas....hacia tiempo que no la escuchaba...
Héctor Miguel
(gracias por los comentarios) ;)
> Posdata:
> Por cierto, tu frase
> ... si tienes algun dato mas "en el tintero" ? (es hora de comentarlo)
> me ha hecho recordar viejas cosas....hacia tiempo que no la escuchaba...
:))
saludos,
hector.
winner....@gmail.com
Gracias por este valioso aporte!
fira...@gmail.com
Hola Hector! esta Genial Tu trabajo,
Estoy buscando hacer algo parecedio, pero no soy muy bueno para programar.
queria pedirte (se que han paso varios añor), si es posible, que agrandes el rango de (A:E) a (A:F) y que solo agregues en lugar de la columna B el nombre de la carpeta que contiene que contiene el archivo. corriedo las demas columnas un espacio a la deracha?
saludos donde quera que este, y un abrazo,
ecnuentro increible lo que hiciste con esto.
ronald...@sasnw.com
saludos
easu...@colpensiones.gov.co
NECESITO TRAER ARCHIVOS TXT DE VARIAS CARPETAS AL MISMO TIEMPO, ES DECIR
TE UNA CARPETA LA CUAL SE LLAMA COLOMBIA Y DENTRO DE ELLA HAY VARIAS CARPETAS CON LAS DIFERENTES CIUDADES EN LAS CUALES HAY ARCHIVOS TXT, NECESITO TRAER TODOS LOS ARCHIVOS TXT DE LA CARPETA COLOMBIA
GRACIAS
