Visual Basic - Espacio del disco duro

como puedo hacer que dandole click a un command button me diga en un cuadro de texto el espacio del disco duro y en otro el espacio que queda disponible (libre ) en el disco duro.

Esto lo encontre por ahí ... hazle las modificaciones necesarias para aplicarlo a tu sistema.

Crear un módulo y escribir:
Declare Function GetDiskFreeSpace Lib "kernel32"_
Alias "GetDiskFreeSpaceA"(ByVal lpRootPathName_
As String, lpSectorsPerCluster As Long, _
lpBytesPerSector_As Long, _
lpNumberOfFreeClusters As Long, _
lpTtoalNumberOfClusters As Long) As Long

Crear 2 Botones:
Escribir el código siguiente:
Private Sub CmdBTotalSpace_Click()
Dim I1 As Long
Dim I2 As Long
Dim I3 As Long
Dim I4 As Long
Dim Unidad As String
Unidad = "C:/"
GetDiskFreeSpace Unidad, I1, I2, I3, I4
TextBox1.Value = "Espacio total: " & (I1*I2*I4)
End Sub

Private Sub CmdBFreeSpace_Click()
Dim I1 As Long
Dim I2 As Long
Dim I3 As Long
Dim I4 As Long
Dim Unidad As String
Unidad = "C:/"
GetDiskFreeSpace Unidad, I1, I2, I3, I4
TextBox1.Value = "Espacio libre: " & (I1*I2*I3)
End Sub