用VB获得大容量硬盘信息

领测软件测试网 　　我的爱机用的是MSI（微星）经典的6309的板子（694X芯片），在主板的随机光盘上，有一个非常不错的PC Alert System Monitor系统工具，它不仅可以用来测CPU的温度、电压、显卡的温度等，还可以显示当前系统的一些信息（安装后该程序可以自动执行，对机器进行实时的监控）。一天刚刚下网，无聊之际打开了该工具查看自己的硬盘信息（在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

文章来源于领测软件测试网 https://www.ltesting.net/