用VB获得大容量硬盘信息

　　一天刚刚下网，无聊之际打开了该工具查看自己的硬盘信息（在Win98下），我的硬盘是西部数据（Western Digital）20.5G的，其分区情况如下：C：4.0G（用来装Win98）、D：4.0G（用于Win2000）、E：5.0G（数据）、F：5.0G（数据）、G：剩余的容量（用于备份）。可是在显示时却出现这样的信息：C：D：E：F：盘的大小变成了2.05G（到后面可以知道只要分区大于2G的都不会显示正常的大小）。

　　这是为什么呢？熟悉Win32 API编程的人都知道，在用VB编程时，我们可以用相应的API函数来获得有关系统的硬盘的信息，会不会是错在API的调用函数呢？想到这里我用自编的程序来查看PC Alert的有关文件，发现其调用了GetDiskFreeSpace函数，问题就出在这个函数上。下面是该函数的参数说明：Byval lpRootPathName As String(为欲查看的分区的根路径如C：/) ，lpSectorsPerCluster As Long（为一簇的扇区数）, lpBytesPerSector As Long（为每一扇区的字节数）, lpNumberOfFreeClusters As Long（当前分区中未使用的簇数）, lpTotalNumberOfClusters As Long（总的簇数） As Long。当我们调用此函数时，是以lpBytesPerSector×lpSectorsPerCluster×TotalNumberOfClusters来计算分区总的大小的，在VB中我用来查看自己的C盘时返回值分别为512 、64、 65526，因而计算出的C盘的大小只有2.05G。

　　以下是关于MSDN中的有关详细说明：对于大于的2G分区，GetDiskFreeSpace函数可能（什么可能，是一定！）返回错误的值，此时函数会屏蔽存在lpNumberOfFreeClusters及lpTotalNumberOfClusters中的值，因此建议不要用该函数来获得大于2G分区的信息。对于大于2G的分区应当使用GetDiskFreeSpaceEx函数（从Win95 OEM OSR2开始），此函数可以返回分区的有关正确信息。

　　找到了问题所在便可以对症下药了，即用GetDiskFreeSpaceEx函数代替GetDiskFreeSpace函数即可。以下是GetDiskFreeSpaceEx函数中所要传递增的参数　

　　lpRootPathName String　，不包括卷名的磁盘根路径名

　　lpFreeBytesAvailableToCaller LARGE_INTEGER，指定一个变量，用于容纳调用者可用的字节数量

　　lpTotalNumberOfBytes LARGE_INTEGER　，指定一个变量，用于容纳磁盘上的总字节数

　　lpTotalNumberOfFreeBytes LARGE_INTEGER，指定一个变量，用于容纳磁盘上可用的字节数 　

　　Private Type LARGE_INTEGER

　　　lowpart As Long

　　　highpart As Long

　　End Type

　　 　　我们可以看到LARGE_INTEGER是一个由两个long型组成的一个类型，两个long组成表示的都是无符号的数，在转换时应当定义一个single型的变量，使其等于highpart*（2^32-1） + lowpart，注意此处的两个long型相当于C/C++中的无符号型整数类型，因为在VB中不存在此种类型，故而在换算时要处理好转换关系。我本人的做法是首先判断long型变量的正负，如是正直接相乘，如是负则用2^32-1减去该值再相乘（具体算法详见下面的代码）。

　　Option Explicit
　　Private Type LARGE_INTEGER
　　　lowpart As Long
　　　highpart As Long
　　End Type
　　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 Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _
　　(ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As LARGE_INTEGER, _
　　lpTotalNumberOfBytes As LARGE_INTEGER, lpTotalNumberOfFreeBytes _
　　As LARGE_INTEGER) As Long
　　Private Sub Command1_Click()
　　　Dim lngSectors&
　　　Dim lngTotalCluster&
　　　Dim lngFreeCluster&
　　　Dim lngPerCluster&
　　　Dim lngperBytes&
　　　Dim lngSize#
　　　GetDiskFreeSpace "c:/", lngPerCluster, lngperBytes, lngFreeCluster, lngTotalCluster
　MsgBox CStr(lngTotalCluster * lngperBytes * lngPerCluster)
　　　Debug.Print lngTotalCluster, lngperBytes, lngPerCluster
　　End Sub
　　Private Type LARGE_INTEGER
　　　lowpart As Long
　　　highpart As Long
　　End Type
　　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 Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _
　　(ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As LARGE_INTEGER, _
　　lpTotalNumberOfBytes As LARGE_INTEGER, lpTotalNumberOfFreeBytes _
　　As LARGE_INTEGER) As Long
　　Private Sub Command1_Click()
　　注释：用GetDiskFreeSpace得到错误的容量
　　　Dim lngSectors&
　　　Dim lngTotalCluster&
　　　Dim lngFreeCluster&
　　　Dim lngPerCluster&
　　　Dim lngperBytes&
　　　Dim lngSize#
　　　GetDiskFreeSpace "c:/", lngPerCluster, lngperBytes, lngFreeCluster, lngTotalCluster
　　　 MsgBox CStr(lngTotalCluster * lngperBytes * lngPerCluster)
　End Sub

　　　　　　Private Sub cmdStart_Click()
　　注释：用GetDiskFreeSpaceEx得到正确的容量
　　　Dim lngFreeCaller As LARGE_INTEGER
　　　Dim lngTotal As LARGE_INTEGER
　　　Dim lngTotalFree As LARGE_INTEGER
　　　Dim sngSize#
　　　GetDiskFreeSpaceEx "c:/", lngFreeCaller, lngTotal, lngTotalFree
　　注释：以下用来显示出分区总容量(以G为单位)
　　　MsgBox GetSize(lngTotal) / 2 ^ 30
　　End Sub
　　Private Function GetSize(lngSize As LARGE_INTEGER) As Single
　　注释：用来从LARGE_INTEGER型变量中换算出实际的大小
　　With lngSize
　　　If .highpart ＜ 0 Then
　　　　GetSize = (2 ^ 32 - 1 - .highpart) * (2 ^ 32 - 1)
　　　Else
　　　　GetSize = .highpart * (2 ^ 32 - 1)
　　　End If
　　　If .lowpart ＜ 0 Then
　　　　GetSize = GetSize + (2 ^ 32 - 1 - .lowpart)
　　　Else
　　　　GetSize = GetSize + .lowpart
　　　End If
　　End With
　　End Function
　　Private Function GetSize(lngSize As LARGE_INTEGER) As Single
　　　注释：用来从LARGE_INTEGER型变量中换算出实际的大小
　　　With lngSize
　　　　If .highpart ＜ 0 Then
　　　　　GetSize = (2 ^ 32 - 1 - .highpart) * (2 ^ 32 - 1)
　　　　Else
　　　　　GetSize = .highpart * (2 ^ 32 - 1)
　　　　End If
　　　　If .lowpart ＜ 0 Then
　　　　　GetSize = GetSize + (2 ^ 32 - 1 - .lowpart)
　　　　Else
　　　　　GetSize = GetSize + .lowpart
　　　　End If
　　　End With
　　End Function　

　　从LARGE_INTEGER的定义来看，应用此函数理论上可得到2^64/2^30=2^34G的分区的大小，不知这辈子能否用上这么大的硬盘