Die folgende Funktion wird verwendet, um die Anzahl der von einem Dateiverzeichnis belegten Bytes zu berechnen:
Die REM-Funktion gibt die Anzahl der vom Verzeichnis belegten Bytes zurück.
Funktion DirUsedBytes(ByVal dirName As String) As Long
Dateiname als Zeichenfolge dimmen
Dateigröße als Währung dimmen
If Right$(dirName, 1) <> / Then
dirName = dirName & /
Endif
FileSize = 0
FileName = Dir$(dirName & *.*)
Führen Sie While FileName <> aus
FileSize = FileSize + FileLen(dirName & FileName)
Dateiname = Dir$
Schleife
DirUsedBytes = FileSize
Endfunktion
Anwendung:
MsgBox DirUsedBytes(D:/musics)