How To Read Subfolders - VB#17

Code:

OpenFileDialog1.ShowDialog()
For Each folder in My.Computer.FileSystem.GetDirectories(YOURFOLDERPATHHERE)
     For Each dir in My.Computer.FileSystem.GetFiles(folder)
          ListBox1.Items.Add(dir)
     Next
Next