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

Gracias Benito, funciona perfectamente.
Saludos
José Rafael

"Benito Merino" <Benito escribió en el
mensaje news:

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
>
>
>

Buenos días(tardes)!

¿Qué código debería agregarse para que la macro agregue también los archivos
o ficheros dentro de cada carpeta?

Saludos.

lrenteria arroba hotmail punto com
"Aprendiz" wrote in message
news:

Gracias Benito, funciona perfectamente.
Saludos
José Rafael

"Benito Merino" <Benito escribió en el
mensaje news:
> 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
> >
> >
> >