有没有api函数能查看某文件夹占空间大小 vb函数的也行

显然要用递归
Dim fs As Object
Private Sub form_load()
'Call Folderlen("C:\program files")
Set fs = CreateObject("Scripting.FileSystemObject")
Dim r As Long
r = FolderlenRec("C:\program files")
Print r; "byte"
Print r \ 1024; "kb"
Print r \ 1024 \ 1024; "mb"
End Sub

Function FolderlenRec(path As String) As Long

Dim l As Long
Dim f As Object
Set f = fs.getfolder(path)
Dim fi As Object
For Each fi In f.Files
l = l + FileLen(path + "\" + fi.Name)
Next fi
For Each fi In f.subfolders
l = l + FolderlenRec(path + "\" + fi.Name)
Next fi

List1.AddItem path & Str(l) & "Byte"
FolderlenRec = l
End Function

用FSO的GETFOLDER函数啊下面是FSO操作文件夹的各种实例代码

’