vfp如何准确获取硬盘总容量、已用容量或剩余容量 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → vfp如何准确获取硬盘总容量、已用容量或剩余容量

标题：vfp如何准确获取硬盘总容量、已用容量或剩余容量

只看楼主

hyswcyh

等　级：贵宾
威　望：20
帖　子：391
专家分：896
注　册：2004-11-23
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：6

vfp如何准确获取硬盘总容量、已用容量或剩余容量

如标题！

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

请各位大神指导！谢谢！

搜索更多相关主题的帖子: vfp　获取　硬盘　容量　返回　

2018-07-30 17:50

hyswcyh

等　级：贵宾
威　望：20
帖　子：391
专家分：896
注　册：2004-11-23

第 2 楼

得分:0

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

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

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

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

2018-07-30 18:08

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 3 楼

得分:10

可能是检测程序不同步，两次检测之间磁盘数据有变化。
用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," ")

2018-07-30 21:15

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 4 楼

得分:10

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