Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias _
"GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, _
lpFreeBytesAvailableToCaller As Any, lpTotalNumberOfBytes _
As Any, lpTotalNumberOfFreeBytes As Any) As Long
-----------在程序中------------
dim a as long
dim b as long
dim c as long
dim d as long
d=GetDiskFreeSpaceEx(Drive1.Drive,a,b,c)
'得到以MB为单位
c=(c/1024)/1024
"GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, _
lpFreeBytesAvailableToCaller As Any, lpTotalNumberOfBytes _
As Any, lpTotalNumberOfFreeBytes As Any) As Long
-----------在程序中------------
dim a as long
dim b as long
dim c as long
dim d as long
d=GetDiskFreeSpaceEx(Drive1.Drive,a,b,c)
'得到以MB为单位
c=(c/1024)/1024
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货