用VB获得大容量硬盘信息
2006-02-27 11:38:50 来源:WEB开发网以下是关于MSDN中的有关详细说明:对于大于的2G分区,GetDiskFreeSpace函数可能(什么可能,是一定!)返回错误的值,此时函数会屏蔽存在lpNumberOfFreeClusters及lpTotalNumberOfClusters中的值,因此建议不要用该函数来获得大于2G分区的信息。对于大于2G的分区应当使用GetDiskFreeSpaceEx函数(从Win95OEMOSR2开始),此函数可以返回分区的有关正确信息。
找到了问题所在便可以对症下药了,即用GetDiskFreeSpaceEx函数代替GetDiskFreeSpace函数即可。以下是GetDiskFreeSpaceEx函数中所要传递增的参数
lpRootPathNameString ,不包括卷名的磁盘根路径名
lpFreeBytesAvailableToCallerLARGE_INTEGER,指定一个变量,用于容纳调用者可用的字节数量
lpTotalNumberOfBytesLARGE_INTEGER ,指定一个变量,用于容纳磁盘上的总字节数
lpTotalNumberOfFreeBytesLARGE_INTEGER,指定一个变量,用于容纳磁盘上可用的字节数
PrivateTypeLARGE_INTEGER
lowpartAsLong
highpartAsLong
EndType
我们可以看到LARGE_INTEGER是一个由两个long型组成的一个类型,两个long组成表示的都是无符号的数,在转换时应当定义一个single型的变量,使其等于highpart*(2^32-1) lowpart,注意此处的两个long型相当于C/C 中的无符号型整数类型,因为在VB中不存在此种类型,故而在换算时要处理好转换关系。我本人的做法是首先判断long型变量的正负,如是正直接相乘,如是负则用2^32-1减去该值再相乘(具体算法详见下面的代码)。
OptionExplicit
PrivateTypeLARGE_INTEGER
lowpartAsLong
highpartAsLong
EndType
PrivateDeclareFunctionGetDiskFreeSpaceLib"kernel32"Alias"GetDiskFreeSpaceA"(ByVallpRootPathNameAsString,lpSectorsPerClusterAsLong,lpBytesPerSectorAsLong,lpNumberOfFreeClustersAsLong,lpTotalNumberOfClustersAsLong)AsLong
PrivateDeclareFunctionGetDiskFreeSpaceExLib"kernel32"Alias"GetDiskFreeSpaceExA"_
(ByVallpRootPathNameAsString,lpFreeBytesAvailableToCallerAsLARGE_INTEGER,_
lpTotalNumberOfBytesAsLARGE_INTEGER,lpTotalNumberOfFreeBytes_
AsLARGE_INTEGER)AsLong
PrivateSubCommand1_Click()
DimlngSectors&
DimlngTotalCluster&
DimlngFreeCluster&
DimlngPerCluster&
DimlngperBytes&
DimlngSize#
GetDiskFreeSpace"c:\",lngPerCluster,lngperBytes,lngFreeCluster,lngTotalCluster
MsgBoxCStr(lngTotalCluster*lngperBytes*lngPerCluster)
Debug.PrintlngTotalCluster,lngperBytes,lngPerCluster
EndSub
PrivateTypeLARGE_INTEGER
lowpartAsLong
highpartAsLong
EndType
PrivateDeclareFunctionGetDiskFreeSpaceLib"kernel32"Alias"GetDiskFreeSpaceA"(ByVallpRootPathNameAsString,lpSectorsPerClusterAsLong,lpBytesPerSectorAsLong,lpNumberOfFreeClustersAsLong,lpTotalNumberOfClustersAsLong)AsLong
PrivateDeclareFunctionGetDiskFreeSpaceExLib"kernel32"Alias"GetDiskFreeSpaceExA"_
(ByVallpRootPathNameAsString,lpFreeBytesAvailableToCallerAsLARGE_INTEGER,_
lpTotalNumberOfBytesAsLARGE_INTEGER,lpTotalNumberOfFreeBytes_
AsLARGE_INTEGER)AsLong
PrivateSubCommand1_Click()
注释:用GetDiskFreeSpace得到错误的容量
DimlngSectors&
DimlngTotalCluster&
DimlngFreeCluster&
DimlngPerCluster&
DimlngperBytes&
DimlngSize#
GetDiskFreeSpace"c:\",lngPerCluster,lngperBytes,lngFreeCluster,lngTotalCluster
MsgBoxCStr(lngTotalCluster*lngperBytes*lngPerCluster)
EndSub
PrivateSubcmdStart_Click()
注释:用GetDiskFreeSpaceEx得到正确的容量
DimlngFreeCallerAsLARGE_INTEGER
DimlngTotalAsLARGE_INTEGER
DimlngTotalFreeAsLARGE_INTEGER
DimsngSize#
GetDiskFreeSpaceEx"c:\",lngFreeCaller,lngTotal,lngTotalFree
注释:以下用来显示出分区总容量(以G为单位)
MsgBoxGetSize(lngTotal)/2^30
EndSub
PrivateFunctionGetSize(lngSizeAsLARGE_INTEGER)AsSingle
注释:用来从LARGE_INTEGER型变量中换算出实际的大小
WithlngSize
If.highpart<0Then
GetSize=(2^32-1-.highpart)*(2^32-1)
Else
GetSize=.highpart*(2^32-1)
EndIf
If.lowpart<0Then
GetSize=GetSize (2^32-1-.lowpart)
Else
GetSize=GetSize .lowpart
EndIf
EndWith
EndFunction
PrivateFunctionGetSize(lngSizeAsLARGE_INTEGER)AsSingle
注释:用来从LARGE_INTEGER型变量中换算出实际的大小
WithlngSize
If.highpart<0Then
GetSize=(2^32-1-.highpart)*(2^32-1)
Else
GetSize=.highpart*(2^32-1)
EndIf
If.lowpart<0Then
GetSize=GetSize (2^32-1-.lowpart)
Else
GetSize=GetSize .lowpart
EndIf
EndWith
EndFunction
从LARGE_INTEGER的定义来看,应用此函数理论上可得到2^64/2^30=2^34G的分区的大小,不知这辈子能否用上这么大的硬盘.
->更多精彩
赞助商链接