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.
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 (http://www.mvps.org/vbnet/code/fileapi/countfiles.htm)
Performing Recursive Searches Using FindFirst and SearchTreeForFile (http://www.mvps.org/vbnet/code/fileapi/recursive.htm)