VB如何获取C盘容量大小

VB如何获得C盘容量大小，要求精确到KB，

要求代码，思路免。谢谢各位。

Private Sub Command1_Click()
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GetDrive("c:")
MsgBox "可用空间：" & vbTab & Format(drv.freeSpace, "0,000") & " 字节" & vbCrLf & _
"总容量：" & vbTab & Format(drv.TotalSize, "0,000") & " 字节", , "驱动器 C"
End Sub

api函数获取磁盘容量: 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     strResult += "已用空间(MB):" & Format(CDbl(((TotalBytes - TotalFreeBytes) / 1024) / 1024), "###,###,##0.00") & vbCrLf MsgBox(strResult) End Sub