'リストボックスに一覧表示
ListBox1.DataSource = My.Computer.FileSystem.Drives

'コンソールのドライブ出力
For Each di As System.IO.DriveInfo In My.Computer.FileSystem.Drives
    With di
        Console.WriteLine(.RootDirectory)
    End With
Next