Следующая функция используется для расчета количества байтов, занимаемых файловым каталогом:
Функция REM возвращает количество байтов, занимаемых каталогом.
Функция DirUsedBytes (ByVal dirName As String) до тех пор, пока
Тусклое имя файла в виде строки
Уменьшить размер файла в качестве валюты
Если Right$(dirName, 1) <> / Тогда
Имя_каталога = Имя_каталога & /
Эндиф
РазмерФайла = 0
ИмяФайла = Каталог$(Имякаталога & *.*)
Делать, пока имя_файла <>
FileSize = FileSize + FileLen (имя_каталога и имя_файла)
ИмяФайла = Каталог$
Петля
ДирUsedBytes = РазмерФайла
конечная функция
Как использовать:
MsgBox DirUsedBytes (D:/musics)