以下是网上的代码：
首先使用 ()获取，存入ds()
然后遍历ds，获取各个信息部分。
Dim ds() As = ()
For i As Integer = 0 To ds.Length - 1
TextBox1.Text = TextBox1.Text + ds(i).DriveType.ToString + " " '驱动器类型
TextBox1.Text = TextBox1.Text + ds(i).Name + " " '盘符（驱动器名）
TextBox1.Text = TextBox1.Text + ds(i).IsReady.ToString + " " '是否就绪
If ds(i).IsReady = True Then
TextBox1.Text = TextBox1.Text + ds(i).VolumeLabel + " " '卷标
TextBox1.Text = TextBox1.Text + ds(i).TotalSize.ToString + " " '驱动器容量
TextBox1.Text = TextBox1.Text + ds(i).TotalFreeSpace.ToString '驱动器可用容量
End If
TextBox1.Text = TextBox1.Text + vbNewLine
Next
改为(vs2010)的代码，但不中：
可能是红色这行代码不会设置
()  '获取，存入ds()
dim s  as String , s1  as String
Dim ds() As = ()
For i As Integer = 0 To ds.Length - 1
    s= s & ds(i).Name & chr(10) '盘符（驱动器名）
  If ds(i).IsReady = True Then
    s1=s1 & ds(i).VolumeLabel & chr(10) '卷标
  End If
   msgbox "s=" & s
   msgbox "s1=" & s1
Next

[此贴子已经被作者于2017-6-25 16:57编辑过]

dim  SystemDriveNames() as String = Directory.GetLogicalDrives
红色部分报错。谢谢。

已经解决，并不需要一楼红色部分的代码，以下是全部代码：

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds() As = ()
        Dim s As String, s1 As String
        For i As Integer = 0 To ds.Length - 1
            s = Chr(10) & s & ds(i).Name & Chr(10) '盘符（驱动器名）
            If ds(i).IsReady = True Then
                s1 = Chr(10) & s1 & ds(i).VolumeLabel & Chr(10) '卷标
            End If
        Next
        MsgBox("s=" & s)
        MsgBox("s1=" & s1)
    End Sub
End Class