Dir Directory !!

For Each foundFile As String In My.Computer.FileSystem.GetDirectories(TextBox2.Text, SearchOption.SearchTopLevelOnly, "*.*")
' foundFile = Replace(foundFile, TextBox2.Text & "\", "")

ListBox2.Items.Add(foundFile)
Next