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

巨快速度求得某一个目录的大小2008-01-05用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））;