前几天，有个朋友拿段vb.net的源码，是用来检测磁盘容量信息的，他可能是把这段代码放在vb6中编译运行的，然后出了很多错，问我怎么解决。VB.net这段代码没错，原因是要在VB6下运行要作适当的改动。于是写了一段VB代码，放在这里，也供其他朋友参考。其实很简单，就是用了一个API的函数GetDiskFreeSpaceEx，以下是GetDiskFreeSpaceEx函数中所要传递增的参数：
lpRootPathName String ，不包括卷名的磁盘根路径名
lpFreeBytesAvailableToCaller ，用于容纳调用者可用的字节数量
lpTotalNumberOfBytes ，用于容纳磁盘上的总字节数
lpTotalNumberOfFreeBytes ，用于容纳磁盘上可用的字节数
具体请看源代码。
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
