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((TotalFreeBytes / 1024) / 1024), "###,###,##0.00") & vbCrLf