A seguinte função é usada para calcular o número de bytes ocupados por um diretório de arquivos:
A função REM retorna o número de bytes ocupados pelo diretório.
Função DirUsedBytes(ByVal dirName As String) As Long
Dim FileName como string
Dim FileSize como moeda
If Right$(dirName, 1) <> / Então
dirNome = dirNome & /
Endif
Tamanho do arquivo = 0
NomeArquivo = Dir$(dirNome & *.*)
Faça enquanto nome do arquivo <>
Tamanho do arquivo = Tamanho do arquivo + Len do arquivo (dirNome e nome do arquivo)
NomeArquivo = Dir$
Laço
DirUsedBytes = Tamanho do arquivo
função final
Como usar:
MsgBox DirUsedBytes(D:/músicas)