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


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