Listar carpetas

Hola.

La siguiente macro te realiza lo que indicas.

Sub Infodirectorios()

Dim FSO As Object
Dim TopFolderName As String
Dim TopFolder As Object
Dim Fldr As Object
Dim Rng As Range


TopFolderName = "C:\" 'indicar directorio
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TopFolder = FSO.GetFolder(TopFolderName)
Set Rng = Range("A1")
For Each Fldr In TopFolder.SubFolders
Rng(1, 1).Value = Fldr.Path ' directorio
Rng(1, 2).Value = Fldr.Size 'tamaño
Rng(1, 3).Value = Fldr.Datecreated 'fecha creación
Rng(1, 4).Value = Fldr.DateLastModified 'fecha última modificación
Set Rng = Rng(2, 1) 'siguiente fila
Next Fldr

End Sub

Información adicional de este objeto la puedes encontrar en el siguiente link:

http://msdn.microsoft.com/library/d...cessed.asp


Saludos,

Benito Merino
Barcelona


"Aprendiz" wrote:

¿Alguien conoce la manera de tener en una hoja Excel un listado de las
carpetas de determinado directorio, p.e. Mis documentos y que indique el
tamaño y fecha de la última modificación?
Gracias anticipadas