Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim info As IO.DriveInfo
info = My.Computer.FileSystem.GetDriveInfo(ComboBox1.SelectedItem)

Label2.Text = " Name " + info.Name
Label3.Text = " TotalSize " + info.TotalFreeSpace.ToString
Label4.Text = " TotalSize " + info.TotalSize.ToString
Label5.Text = " VolumeLabel " + info.VolumeLabel
Label6.Text = " AvailableFreeSpace " + info.AvailableFreeSpace.ToString
Label7.Text = " DriveFormat " + info.DriveFormat
Label8.Text = " DriveType " + info.DriveType.ToString

End Sub


End Class