Imports System.IO
Module Module1
Sub Main()
Dim target As String = "C:\Documents and Settings\lightbox\My Documents"
Dim dir As New Dictionary(Of Integer, String)
Dim dir_name As String = ""
Dim dir_cnt As Integer = 1
Dim idx_cnt As Integer = 1
dir.Add(dir_cnt, target)
Dim subFolders As String()
Do While (True)
subFolders = Directory.GetDirectories( _
dir(idx_cnt), _
"*", _
SearchOption.TopDirectoryOnly _
)
For Each dir_name In subFolders
dir_cnt += 1
dir.Add(dir_cnt, dir_name)
Console.WriteLine(dir_name)
Next
idx_cnt += 1
If Not dir.TryGetValue(idx_cnt, dir_name) Then
Exit Do
End If
Loop
Console.ReadLine()
End Sub
End Module