Averiguar el tamaño de un directorio

[xavi]

Palabras clave: FSO, tamaño, carpeta, directorio
Autor: Rubén Vigón
Extraído de: La web del Búho
Objetivo:
Averiguar el tamaño de un directorio sin utilizar procedimientos recursivos.

Código: [Seleccionar]

Dim Fso As FileSystemObject
Set Fso = New FileSystemObject
MsgBox Fso.GetFolder("c:\winnt\system32").Size
Set Fso = Nothing


Y, si no quieres utilizar FSO, aquí tienes excelentes ejemplos de código recursivo:

Obtaining a Directory File Count Using FindFirstFile and FindNextFile

Performing Recursive Searches Using FindFirst and SearchTreeForFile