La siguiente función se utiliza para calcular el número de bytes ocupados por un directorio de archivos:
La función REM devuelve el número de bytes ocupados por el directorio.
Función DirUsedBytes (ByVal dirName como cadena) siempre y cuando
Dim FileName como cadena
Dim FileSize como moneda
Si es correcto$(dirName, 1) <> / Entonces
nombredir = nombredir & /
endif
Tamaño de archivo = 0
Nombre de archivo = Dir$(nombredir & *.*)
Hacer mientras nombre de archivo <>
Tamaño de archivo = Tamaño de archivo + Longitud de archivo (nombredir y nombre de archivo)
Nombre de archivo = Dir$
Bucle
DirUsedBytes = Tamaño de archivo
función final
Cómo utilizar:
MsgBox DirUsedBytes(D:/músicas)