次の関数は、ファイル ディレクトリが占めるバイト数を計算するために使用されます。
REM 関数は、ディレクトリが占有しているバイト数を返します。
関数 DirusedBytes(ByVal dirName As String) As Long
文字列としてのファイル名を暗くする
通貨としての Dim FileSize
If Right$(dirName, 1) <> / then
ディレクトリ名 = ディレクトリ名 & /
エンディフ
ファイルサイズ = 0
ファイル名 = ディレクトリ$(ディレクトリ名 & *.*)
Do While ファイル名 <>
FileSize = FileSize + FileLen(ディレクトリ名 & ファイル名)
ファイル名 = ディレクトリ$
ループ
Dir UsedBytes = ファイルサイズ
終了関数
使用方法:
MsgBox Dir UsedBytes(D:/musics)