精彩编程与编程技巧-检查硬盘空间...

检查硬盘空间 
     使用API函数可以方便的计算出指定硬盘的总空间和剩余空间.其函数声明为:
Long GetDiskFreeSpace(
lpRootPathName as string,'指定驱动器盘符,如 C:\
lpSectorsPerCluster as long, 每串的扇区数
lpBytesPerSector as long,'每扇区的字节数
lpNumberOfFreeClusters as long,'剩余串数
lpTotalNumberOfClusters as long'总串数
);
>>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.
>>步骤2----加入如下代码:
Private Declare Function GetDiskFreeSpace Lib "kernel32" _
    Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
    lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
    lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters _
    As Long) As Long

Private Sub Command1_Click()
    Dim freeSpace As Long, totalSpace As Long
    Dim lpRootPathName As String, lpSectorsPerCluster As Long, _
        lpBytesPerSector As Long, lpNumberOfFreeClusters As _
        Long,lpTotalNumberOfClusters As Long
    lpRootPathName = "C:\"
    freeSpace = GetDiskFreeSpace(lpRootPathName, _
        lpSectorsPerCluster,lpBytesPerSector, _
        lpNumberOfFreeClusters,lpTotalNumberOfClusters)
    If freeSpace <> 0 Then
        freeSpace = lpSectorsPerCluster * lpBytesPerSector * _
        lpNumberOfFreeClusters
        totalSpace = lpSectorsPerCluster * lpBytesPerSector * _