Code:
Dim foundSong As String
For Each foundSong In My.Computer.FileSystem.GetFiles("Directory", FileIO.SearchOption.SearchAllSubDirectories, "*.mp3*")
ListBox1.Items.Add(foundSong)
Nextin shortly , on error while searching i want to go next folder.
(sorry about my english)