VB检测磁盘容量信息

前几天，有个朋友拿段vb.net的源码，是用来检测磁盘容量信息的，他可能是把这段代码放在vb6中编译运行的，然后出了很多错，问我怎么解决。VB.net这段代码没错，原因是要在VB6下运行要作适当的改动。于是写了一段VB代码，放在这里，也供其他朋友参考。其实很简单，就是用了一个API的函数GetDiskFreeSpaceEx，以下是GetDiskFreeSpaceEx函数中所要传递增的参数：

lpRootPathName String　，不包括卷名的磁盘根路径名
lpFreeBytesAvailableToCaller ，用于容纳调用者可用的字节数量
lpTotalNumberOfBytes ，用于容纳磁盘上的总字节数
lpTotalNumberOfFreeBytes ，用于容纳磁盘上可用的字节数

具体请看源代码。

原文转自：http://www.ltesting.net