ฟังก์ชันคำนวณจำนวนไบต์ที่ไดเร็กทอรีครอบครอง

ฟังก์ชันต่อไปนี้ใช้ในการคำนวณจำนวนไบต์ที่ไดเร็กทอรีไฟล์ครอบครอง:

ฟังก์ชัน REM ส่งกลับจำนวนไบต์ที่ไดเร็กทอรีครอบครอง

ฟังก์ชั่น DirUsedBytes (ByVal dirName As String) ตราบใดที่

Dim FileName As String

Dim FileSize เป็นสกุลเงิน

ถ้า Right$(dirName, 1) <> / จากนั้น

dirName = dirName & /

เอนดิฟ

ขนาดไฟล์ = 0

ชื่อไฟล์ = Dir$(dirName & *.*)

ทำในขณะที่ชื่อไฟล์ <>

FileSize = FileSize + FileLen (dirName & ชื่อไฟล์)

ชื่อไฟล์ = Dir$

วนซ้ำ

DirUsedBytes = ขนาดไฟล์

ฟังก์ชั่นสิ้นสุด

วิธีใช้:

MsgBox DirUsedBytes(D:/musics)