Option Strict On
Imports System.Collections.ObjectModel
Imports System.IO
Public Module IterateDrives
Public Sub Main()
Dim drives As ReadOnlyCollection(Of DriveInfo)
drives = My.Computer.FileSystem.Drives
For Each drive As DriveInfo In drives
Console.WriteLine(drive.Name)
Next
End Sub
End Module
C:\
D:\