菜鸟问题：如何使用api函数获得某一个目录及其子目录中所有文件的大小

Question

如题
不要遍历，记得肯定有api可以实现的，但是记不清是那条了

Answer 1

用api的我再想想，不过用FileSystemObject很容易实现，如： 
Dim fso As FileSystemObject 
Dim f As Folder 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f = fso.GetFolder("c:\winnt") 
Print f.Size 

Answer 2

msdn的例子
Sub ShowFolderSize(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(filespec)
    s = UCase(f.Name) & " uses " & f.size & " bytes."
    MsgBox s, 0, "Folder Size Info"
End Sub

Answer 3

就是说 那个目录肯定有很多子目录，子目录肯定还有很多文件，就是不要遍历所有子目录就可以获得这个目录中所有文件（含子目录）的文件的大小的总和记得好像再 shell.dll里有个 SH  开头的api可以实现这个功能，可是找不到了