Fungsi berikut digunakan untuk menghitung jumlah byte yang ditempati oleh direktori file:
Fungsi REM mengembalikan jumlah byte yang ditempati oleh direktori.
Fungsi DirUsedBytes(ByVal dirName As String) Selama
Redupkan Nama File Sebagai String
Redupkan Ukuran File Sebagai Mata Uang
Jika Benar$(dirName, 1) <> / Kemudian
dirName = dirName & /
Endif
Ukuran File = 0
Nama File = Dir$(dirName & *.*)
Lakukan Sementara Nama File <>
Ukuran File = Ukuran File + FileLen(Namadir & Nama File)
Nama File = Dir$
Lingkaran
DirUsedBytes = Ukuran File
fungsi akhir
Cara menggunakan:
MsgBox DirUsedBytes(D:/musik)