VB.NET下获取硬盘信息的几种方法

 

 

 

1、用API函数GetDiskFreeSpaceEx获取磁盘空间

 

    Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _

        (ByVal lpDirectoryName As String, ByRef lpFreeBytesAvailableToCaller As Long, _

        ByRef lpTotalNumberOfBytes As Long, ByRef lpTotalNumberOfFreeBytes As Long) As Long

 

   Private Sub btnDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisk.Click

        Dim BytesFreeToCalller As Long, TotalBytes As Long

        Dim TotalFreeBytes As Long, TotalBytesUsed As Long

        Dim strResult As String

        Const RootPathName = "C:/"

        Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)

        strResult = " Drive " & "C:/" & vbCrLf

        strResult += " 磁盘容量 (MB):" & Format(CDbl((TotalBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf

        strResult += " 可用空间 (MB):" & Format(CDbl((TotalFr