La fonction suivante permet de calculer le nombre d'octets occupés par un répertoire de fichiers :
La fonction REM renvoie le nombre d'octets occupés par le répertoire.
Fonction DirUsedBytes (ByVal dirName As String) As Long
Dim FileName As String
Dim FileSize comme devise
Si Right$(dirName, 1) <> / Alors
dirName = dirName & /
Fin
Taille du fichier = 0
NomFichier = Rép$(Nomrép & *.*)
Faire pendant que nom de fichier <>
TailleFichier = TailleFichier + FileLen (nomrép et nomfichier)
Nom du fichier = Rép$
Boucle
DirUsedBytes = Taille du fichier
fonction de fin
Comment utiliser :
MsgBox DirUsedBytes(D:/musiques)