Imports System.IO Module Module1 Sub Main() Dim DriveList As String() = Directory.GetLogicalDrives() Dim Drive As String Console.WriteLine("Logical Drives") For Each Drive In DriveList Console.WriteLine(Drive) Next End Sub End Module