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