GetFree('c:\') FUNCTION GetFree LPARAMETERS tcDirectory DECLARE short GetDiskFreeSpaceEx IN WIN32API ; string @ lpDirectoryName, ; string @ lpFreeBytesAvailable, ; string @ lpTotalNumberOfBytes, ; string @ lpTotalNumberOfFreeBytes STORE SPACE(8*8) TO ; lpFreeBytesAvailable, ; lpTotalNumberOfBytes, ; lpTotalNumberOfFreeBytes GetDiskFreeSpaceEx(tcDirectory, @lpFreeBytesAvailable, ; @lpTotalNumberOfBytes,@lpTotalNumberOfFreeBytes) ? 'FreeBytesAvailable',Str2Num(lpFreeBytesAvailable,8) ? 'TotalNumberOfBytes',Str2Num(lpTotalNumberOfBytes,8) ? 'TotalNumberOfFreeBytes',Str2Num(lpTotalNumberOfFreeBytes,8) FUNCTION Str2num LPARAMETERS tcStr,tnLen local lnRetVal lnRetVal = 0 FOR ix=1 TO tnLen lnRetVal = lnRetVal + ASC(SUBSTR(tcStr,ix))*(256^(ix-1)) endfor RETURN TRANSFORM(lnRetVal,'999,999,999,999,999')Cetin