Oh, here you go:
Imports System.IO
Private Sub scanFolders(ByVal FolderLocation As String)
Try
For Each d In Directory.GetDirectories(FolderLocation)
ListBox1.Items.Add(d)
For Each f In Directory.GetFiles(d, "*.*")
ListBox1.Items.Add(f)
Next
scanFolders(d)
Next
Catch ex As Exception
End Try
End Sub