Here is your code snippet

show all subfolders

show all subfolders of a drive

Dim subs() As String

subs = System.IO.Directory.GetDirectories("c:\")

Dim enumerator As System.Collections.IEnumerator

enumerator = subs.GetEnumerator

While enumerator.MoveNext
Console.WriteLine(CStr(enumerator.Current))
End While

 

2006 onwards Programmershelp