Functions.DiskFree 方法 (String) |
命名空间: XSharp.Core
1FUNCTION BackUp(cTargetFile, cTargetDrive) 2 LOCAL nSpaceNeeded 3 LOCAL lSuccess := FALSE 4 // 计算打开文件的大小 5 nSpaceNeeded := Integer((RecSize() * ; 6 LastRec()) + Header() + 1) 7 IF DiskFree(cTargetDrive) < nSpaceNeeded 8 lSuccess := FALSE 9 ELSE 10 // 在复制之前关闭数据库文件 11 DBCloseArea() 12 FCopy("sales.dbf", cTargetDrive + ":"+ cTargetFile) 13 lSuccess := TRUE 14 ENDIF 15 RETURN lSuccess