用VB获得大容量硬盘信息

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的分区的大小，不知这辈子能否用上这么大的硬盘．

上一篇： VB中拖动没有标题栏的窗体
下一篇： VB中让窗体始终处于最前面

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!