Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim StrS() As String
Dim i As Integer
StrS = System.IO.Directory.GetLogicalDrives()
For i = 0 To StrS.Length - 1
Console.WriteLine(StrS(i))
Next i
End Sub
End Class
C:\
D:\