VB FSO 获取C盘的容量

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