Macro para saber la ocupacion en gb de una carpeta y sus subcarpetas

[Juan Manuel Torrecilla]

Buenos días,

He estado buscando una macro para obtener cuanto ocupa una carpeta y sus subcarpetas y lo más cercano que encuentro son macros para listar nombres y atributos de carpetas y ficheros, he intentado adaptar pero no lo consigo.

Si alguien pudiera darme alguna indicación se lo agradecería enormemente.

La información que quiero recopilar es la siguiente: Poder dejar en una hoja Excel el nombre de una lista de carpetas que las escribo yo y la macro quisiera que me rellenase la celda al lado de cada carpeta con la ocupación real que tiene en disco incluyendo por supuesto todas las subcarpetas que tiene por debajo. Para explicarme un poco mejor, pretendo controlar el crecimiento de la ocupación en un servidor de archivos organizado por usuarios, proyectos, departamentos, etc.

Estoy utilizando Excel 2010.

Gracias de antemano por vuestra ayuda.

Un cordial saludo

Juan Manuel

[asesorcperic]

hola intenta con esto

Dim Fso As Object

Dim ruta As String

ruta = Worksheets("hoja1").Range("a3")

Set Fso = CreateObject("Scripting.FileSystemObject")

Set Carpeta = Fso.GetFolder(ruta)

MsgBox "La Carpeta Ocupa " & Carpeta.Size & " bytes"[/CODE]

[Juan Manuel Torrecilla]

Perfecto, he integrado tu código en mi macro para varias listas de subcarpetas y funciona de maravilla.

Muchas gracias por tu ayuda, es un código sencillo y preciso.

un cordial saludo

Juan Manuel