Function Laufwerk_Durchsuchen(ByVal pfad As String)
On Error Resume Next
 
    Dim fso As FileSystemObject
    Dim fo As Folder
    Dim fo1 As Folder
    Dim f As File
 
    Set fso = New FileSystemObject
    Set fo = fso.GetFolder(pfad)
    For Each f In fo.Files
        If Right(f.Name, 3) = "mp3" Then
            'lese Genre aus usw.
        End If
    Next
    For Each fo1 In fo.SubFolders
        Laufwerk_Durchsuchen (pfad & "\" & fo1.Name)
    Next
End Function

Private Sub Form_Load()
    Laufwerk_Durchsuchen ("c:")
End Sub