[Visual Basic 2010]Calcolare spazio libero su disco

[Gian01]

Ho provato così:

Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
Dim d As DriveInfo
For Each d In allDrives
Label1.Text = d.AvailableFreeSpace.ToString
Next

Ma da errore: Periferica non pronta