VB Code:
  1. Dim strDrives As String() = Environment.GetLogicalDrives()
  2.         Dim drive As String
  3.         For Each drive In strDrives
  4.             Console.WriteLine(drive)
  5.         Next