下面的函數(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")