void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant fs, folder;
Function GetFolder("GetFolder");
PropertyGet GetSize("size");
fs = Variant::CreateObject("Scripting.FileSystemObject");
folder = fs.Exec(GetFolder << "c://Windows");
ShowMessage(folder.Exec(GetSize));
}