fso = CREATEOBJ('Scripting.FileSystemObject')
oDrive = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(YourDrive)))
? oDrive.TotalSize

I paste this code in prg but not run. How it will be run?
I do not know about ApI