RE:Mostrar capacidad de Disco Duro
Coloca en un Form 3 TextBox y un CommandButton y pega este código:
Const MEGABYTES = 1048576
Const GIGABYTES = MEGABYTES * 1024
Private Sub Command1_Click()
' En Menu -> Referencia marcar "Microsoft Scripting Runtime"
Dim FSO As Scripting.FileSystemObject
Dim sFolder As Scripting.Folder
Dim sDrive As Scripting.Drive
Dim dGigas As Double
Dim dMegas As Double
Dim dTotal As Double
Set FSO = New Scripting.FileSystemObject
Set sFolder = FSO.GetFolder("c:\")
Set sDrive = sFolder.Drive
dGigas = (sDrive.FreeSpace / GIGABYTES)
dMegas = (sDrive.FreeSpace / MEGABYTES)
dTotal = sDrive.TotalSize
Text1 = Round(dGigas, 2) & " Gigas disponibles"
Text2 = Format(dMegas, "#,##0") & " Megas disponibles"
Text3 = Format(dTotal, "#,##0") & " Total bytes en Disco"
Set FSO = Nothing
End Sub
Y ahí tienes los gigas y megas disponibles y bytes totales del disco.