Imports System
Imports System.IO
Public Class GetDirectoriesTest
Public Shared Sub Main()
Dim di As New DirectoryInfo("c:\")
Dim diArr As DirectoryInfo() = di.GetDirectories()
Dim dri As DirectoryInfo
For Each dri In diArr
Console.WriteLine(dri.Name)
Next dri
End Sub
End Class