*================================================== * Returns the available diskspace *================================================== Parameter tcDrive *----------------------------------------------- * evaluate parameter *----------------------------------------------- Private lcDrive If Parameter() == 1 lcDrive = tcDrive Else lcDrive = Sys(5) Endif *----------------------------------------------- * Get free disk space *----------------------------------------------- Private lcDefault, lnSize lcDefault = Sys(5) + Sys(2003) Set Default to &lcDrive lnSize = Diskspace() If lnSize < 0 lnSize = lnSize + 2^32 Endif Set Default to &lcDefault Return lnSizeChristof