请问 VB.NET 如何得到C盘剩余空间和C盘总空间

[xwqjamky]

请问 VB.NET 如何得到C盘剩余空间 和C盘总空间

[llsus]

        Dim D As New System.IO.DriveInfo("c:")
        MsgBox(D.TotalFreeSpace)
        MsgBox(D.TotalSize)

[LYDF4151]

Declare Function getdiskfreespace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal Path As String, ByRef a As Long, ByRef b As Long, ByRef c As Long, ByRef d As Long) As Long

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Try
Dim SectorOfCluster, ByteOfSector, freeCluster, TotalCluster As Long
Dim result As Long

result = getdiskfreespace("f:\", SectorOfCluster, ByteOfSector, freeCluster, TotalCluster)


TextBox6.Text = String.Concat(((freeCluster * SectorOfCluster * ByteOfSector) / (1024 ^ 3)).ToString("##0.00"), "G")


TextBox7.Text = String.Concat(((TotalCluster * SectorOfCluster * ByteOfSector) / (1024 ^ 3)).ToString("##0.00"), "G")

Catch ex As Exception
MsgBox(ex.ToString)

End Try
End Sub