function DiskSpace(AFileName : string) : int;
var
 fso, drv : OleVariant;
begin
 fso := CreateOleObject('Scripting.FileSystemObject');
 drv := fso.GetDrive(fso.GetDriveName(AFileName));
 DiskSpace := drv.AvailableSpace;
end;