Public Class Form1
   Private m_Result As New System.Text.StringBuilder
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      m_Result.AppendLine("Meine Mp3 Dateien" + Environment.NewLine)
 
      Dim dir As New IO.DirectoryInfo("Dein Pfad der Wahl")
      For Each f As IO.FileInfo In dir.GetFiles
         If f.Extension.ToLower = ".mp3" Then
            m_Result.AppendLine(f.Name)
         End If
      Next
      Call ReadMyMusic(dir.FullName)
      MsgBox(m_Result.ToString)
 
   End Sub
 
   Private Sub ReadMyMusic(ByVal Path As String)
      Dim dir As New IO.DirectoryInfo(Path)
      Dim subdir As IO.DirectoryInfo
 
      For Each subdir In dir.GetDirectories
         For Each f As IO.FileInfo In subdir.GetFiles
            If f.Extension.ToLower = ".mp3" Then
               m_Result.AppendLine(f.Name)
            End If
         Next
 
         'Rekursiver Aufruf
         Call ReadMyMusic(subdir.FullName)
      Next
 
   End Sub
End Class

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio