如何获得任意磁盘的剩余空间.txt

VB技巧问答10000例 VB技巧问答10000例

2G以 下 的 硬 盘 可 以 使 用 API函 数 GetDiskFreeSpace。 下 面 就 是 一 个 例 子 。 
     Declare Function GetDiskFreeSpace Lib "kernel32" Alias _ 
     "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _ 
     lpSectorsPerCluster As Long, lpBytesPerSector As Long, _ 
     lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) _ 
     
     Public Type DiskInformation 
     lpSectorsPerCluster As Long 
     lpBytesPerSector As Long 
     lpNumberOfFreeClusters As Long 
     lpTotalNumberOfClusters As Long 
     End Type 
     
     Sub main() 
     Dim info As DiskInformation 
     Dim lAnswer As Long 
     Dim lpRootPathName As String 
     Dim lpSectorsPerCluster As Long 
     Dim lpBytesPerSector As Long 
     Dim lpNumberOfFreeClusters As Long 
     Dim lpTotalNumberOfClusters As Long 
     Dim lBytesPerCluster As Long 
     Dim lNumFreeBytes As Double 
     Dim sString As String 
     
     lpRootPathName = "c:\" 
     lAnswer = GetDiskFreeSpace(lpRootPathName, lpSectorsPerCluster, _ 
     lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters) 
     lBytesPerCluster = lpSectorsPerCluster * lpBytesPerSector 
     lNumFreeBytes = lBytesPerCluster * lpNumberOfFreeClusters 
     sString = "Number of Free Bytes : " & lNumFreeBytes & vbCr & vbLf 
     sString = sString & "Number of Free Kilobytes: " & (lNumFreeBytes _ 
     / 1024) & "K" & vbCr & vbLf 
     sString = sString & "Number of Free Megabytes: " & _ 
     Format(((lNumFreeBytes / 1024) / 1024), "0.00") & "MB" 
     
     MsgBox sString 
     End Sub 
    不 过 因 为 这 个 函 数 的 几 个 参 数 都 是 Long型 ， 而 Long最 多 表 示 2G。 在 Windows 95 OSR以 后 版 本 增 加 了 GetDiskFreeSpaceEx函 数 ， 以 支 持 大 硬 盘 ， 这 个 函 数 的 不 同 之 处 在 于 所 有 的 Long参 数 都 改 为 了 64位 整 数 。 
<END>