巨快速度求得某一个目录的大小

用Scripting Runtime

//------------------------------------------------------------
#include "comobj.hpp"
Variant fs, folder;
Function GetFolder("GetFolder");
PropertyGet GetSize("size");
fs = Variant::CreateObject("Scripting.FileSystemObject");
folder = fs.Exec(GetFolder << "D:\\Winnt");
ShowMessage(folder.Exec(GetSize));