调用API函数得到磁盘上剩余空间的值

 

 

调用API函数得到磁盘上剩余空间的值

最直接的方法是调用API函数 GetDiskFreeSpace,函数声明如下:

声明：

Declare Function GetDiskFreeSpace Lib "kernel32" Alias 
"GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster 
As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, 
lpTtoalNumberOfClusters As Long) As Long


使用：

Private Sub Form_Load()
'VB Man 2001
'URL: http://goodvbman.yeah.net
'E-Mail: coolde@21cn.com

Dim Sectors as Long,Bytes as Long,FreeC as Long, Total