' getdrives.vb Imports System Imports System.IO Public Class GetDrives Shared Sub Main() Dim drives As String() = Directory.GetLogicalDrives() For Each s As String In drives Console.WriteLine(s) Next ' 出力例: ' A:\ ' C:\ ' D:\ ' Y:\ ' Z:\ End Sub End Class ' コンパイル方法:vbc getdrives.vb