vb遍历所有驱动器

[vb]代码库

Private Sub ShowDrives()
    Dim d() As String
    d = System.IO.Directory.GetLogicalDrives()
    Dim en As System.Collections.IEnumerator
    en = d.GetEnumerator
    While en.MoveNext
      Console.WriteLine(CStr(en.Current))
    End While
  End Sub