下面的函數(shù)用來(lái)計(jì)算某個(gè)文件目錄所占的字節(jié)數(shù):
REM 函數(shù)返回值為目錄所占字節(jié)數(shù)
Function DirUsedBytes(ByVal dirName As String) As Long
Dim FileName As String
Dim FileSize As Currency
If Right$(dirName, 1) <> "/" Then
dirName = dirName & "/"
Endif
FileSize = 0
FileName = Dir$(dirName & "*.*")
Do While FileName <> ""
FileSize = FileSize + FileLen(dirName & FileName)
FileName = Dir$
Loop
DirUsedBytes = FileSize
end function
使用方法:
MsgBox DirUsedBytes("D:/musics")
新聞熱點(diǎn)
疑難解答