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