Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim inf As String = ""
        For Each di As IO.DriveInfo In IO.DriveInfo.GetDrives
            If di.IsReady Then
                inf &= di.Name & " FreeSpace   : " & di.TotalFreeSpace \ _
                  1048576 & " MB" & vbCrLf
            End If
        Next
        MsgBox(inf)
    End Sub
End Class