Saltar al contenido

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

publicado

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

Featured Replies

publicado

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]

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.