uses
  ComObj;

Function FolderSize(FolderName: STRING) : DWORD;
var
  fldr, fso : OleVariant;
begin
  fso := CreateOleObject('Scripting.FileSystemObject');
  fldr := fso.GetFolder(FolderName);
  result := fldr.size; // In Bytes
end;