[Visual Basic 2010]Calcolare spazio libero su disco

[Gian01]

Ho fatto così solo che mi da i valori sommati!

Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
Dim d As DriveInfo
For Each d In allDrives
If d.IsReady = True Then
Label1.Text = d.AvailableFreeSpace.ToString
End If
Next

Come faccio a specificarli??