如标题！

我用系统自带的函数返回数据有出入，diskspace('d:',1)返回D盘总容量，diskspace('d:',2)返回D盘剩余容量，获取的D盘已用容量与实际有出入，不一致，请问如何能得到精确数据？


请各位大神指导！谢谢！

图片上标注的是扫描结束时的显示的最终百分比。很郁闷！

进度是：（当前扫描到的文件大小总和/硬盘已用容量）*100%

扫描到的文件大小总和与操作系统文件夹查看属性看到的大小是一致的，但用diskspace()返回的数据是不准确的。

郁闷！请帮忙看看。谢谢！

可能是检测程序不同步，两次检测之间磁盘数据有变化。
用API试试：
DECLARE LONG GetDiskFreeSpace IN Kernel32 STRING@, LONG@, LONG@, LONG@, LONG@
cRootPathName = "C:"
nSectorsPerCluster = 0
nBytesPerSector = 0
nNumberOfFreeClusters = 0
nTotalNumberOfClusters = 0
GetDiskFreeSpace(@cRootPathName, @nSectorsPerCluster, @nBytesPerSector,;
    @nNumberOfFreeClusters, @nTotalNumberOfClusters)
? cRootPathName
? "已用空间: "+PADL((nTotalNumberOfClusters-nNumberOfFreeClusters)*nSectorsPerCluster*nBytesPerSector,20," ")
? "可用空间: "+PADL(nNumberOfFreeClusters*nSectorsPerCluster*nBytesPerSector,20," ")
? "---------------------------------------------"
? "磁盘容量: "+PADL(nTotalNumberOfClusters*nSectorsPerCluster*nBytesPerSector,20," ")

Clear
FSO=CreateObject("Scripting.FileSystemObject")
colDrives=FSO.Drives
For Each oBjDrive In colDrives
    If oBjDrive.IsReady
        ? oBjDrive.DriveLetter  && 驱动器名称
        ? Transform(Int(oBjDrive.TotalSize/(1024*1024*1024))) && 各驱动器总容量(GB)
        ? Transform(int(objDrive.FreeSpace/(1024*1024*1024))) && 各驱动器剩余容量(GB)
    EndIf
EndFor

都很准确！谢谢两位版主！

就兼容性和内存占用方面而言，API和FSO哪个方式更好些？谢谢！

[此贴子已经被作者于2018-7-31 08:43编辑过]

这是用FSO的结果！

谢谢各位，学习啦！