System IO VB.Net by API

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