Access de Xavi

Funciones => FSO => Mensaje iniciado por: xavi en Abril 13, 2012, 11:37:58 pm

Título: Averiguar el tamaño de un directorio
Publicado por: xavi en Abril 13, 2012, 11:37:58 pm
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 (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)