用VB获得大容量硬盘信息

　　这是为什么呢？熟悉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)

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有