這是為什么呢？熟悉Win32 API編程的人都知道，在用VB編程時，我們可以用相應(yīng)的API函數(shù)來獲得有關(guān)系統(tǒng)的硬盤的信息，會不會是錯在API的調(diào)用函數(shù)呢？想到這里我用自編的程序來查看PC Alert的有關(guān)文件，發(fā)現(xiàn)其調(diào)用了GetDiskFreeSpace函數(shù)，問題就出在這個函數(shù)上。下面是該函數(shù)的參數(shù)說明：Byval lpRootPathName As String(為欲查看的分區(qū)的根路徑如C：\) ，lpSectorsPerCluster As Long（為一簇的扇區(qū)數(shù)）, lpBytesPerSector As Long（為每一扇區(qū)的字節(jié)數(shù)）, lpNumberOfFreeClusters As Long（當(dāng)前分區(qū)中未使用的簇數(shù)）, lpTotalNumberOfClusters As Long（總的簇數(shù)） As Long。當(dāng)我們調(diào)用此函數(shù)時，是以lpBytesPerSector×lpSectorsPerCluster×TotalNumberOfClusters來計算分區(qū)總的大小的，在VB中我用來查看自己的C盤時返回值分別為512 、64、 65526，因而計算出的C盤的大小只有2.05G。
以下是關(guān)于MSDN中的有關(guān)詳細說明：對于大于的2G分區(qū)，GetDiskFreeSpace函數(shù)可能（什么可能，是一定?。┓祷劐e誤的值，此時函數(shù)會屏蔽存在lpNumberOfFreeClusters及l(fā)pTotalNumberOfClusters中的值，因此建議不要用該函數(shù)來獲得大于2G分區(qū)的信息。對于大于2G的分區(qū)應(yīng)當(dāng)使用GetDiskFreeSpaceEx函數(shù)（從Win95 OEM OSR2開始），此函數(shù)可以返回分區(qū)的有關(guān)正確信息。
找到了問題所在便可以對癥下藥了，即用GetDiskFreeSpaceEx函數(shù)代替GetDiskFreeSpace函數(shù)即可。以下是GetDiskFreeSpaceEx函數(shù)中所要傳遞增的參數(shù)
lpRootPathName String ，不包括卷名的磁盤根路徑名
lpFreeBytesAvailableToCaller LARGE_INTEGER，指定一個變量，用于容納調(diào)用者可用的字節(jié)數(shù)量
lpTotalNumberOfBytes LARGE_INTEGER ，指定一個變量，用于容納磁盤上的總字節(jié)數(shù)
lpTotalNumberOfFreeBytes LARGE_INTEGER，指定一個變量，用于容納磁盤上可用的字節(jié)數(shù)
Private Type LARGE_INTEGER
lowpart As Long
highpart As Long
End Type
我們可以看到LARGE_INTEGER是一個由兩個long型組成的一個類型，兩個long組成表示的都是無符號的數(shù)，在轉(zhuǎn)換時應(yīng)當(dāng)定義一個single型的變量，使其等于highpart*（2^32-1） + lowpart，注意此處的兩個long型相當(dāng)于C/C++中的無符號型整數(shù)類型，因為在VB中不存在此種類型，故而在換算時要處理好轉(zhuǎn)換關(guān)系。我本人的做法是首先判斷l(xiāng)ong型變量的正負，如是正直接相乘，如是負則用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
注釋：以下用來顯示出分區(qū)總?cè)萘?以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的定義來看，應(yīng)用此函數(shù)理論上可得到2^64/2^30=2^34G的分區(qū)的大小，不知這輩子能否用上這么大的硬盤．
