Die Filterst zuerst die Titel:
 
Dim TwmT As Variant
Dim TwoF As Variant
 
   Dim A As String
   twmT = Split(FileName, "\")
   'Der letzte Eintrag ist der Titel und Interpret, ergo:
   A = twmt(Ubound(twmt,1))
   twof = Split(a,".")
   A = twof(0)