'ID3-Tags auslesen
        If GetID3TagV2(mp3_list_array(v_schleifen_zaehler), _
          ID3_tag_zwischenspeicher_array) = True Then
        ID3_tag_array(v_schleifen_zaehler, 0) = _
        ID3_tag_zwischenspeicher_array.Title
        ID3_tag_array(v_schleifen_zaehler, 1) = _
        ID3_tag_zwischenspeicher_array.Artist
        End If
 
        'Bitrate, Länge und Channel-Modus (Mono/Stereo) bestimmen
        Dim Header As New HeaderInfos
        Header.FilePath = mp3_list_array(v_schleifen_zaehler)
        Call Header.GetFileInfos
 
        'Länge in Array einlesen
        ID3_tag_array(v_schleifen_zaehler, 2) = Zeitumrechnung(Header.Seconds)
 
        'Bitrate in Array einlesen
        ID3_tag_array(v_schleifen_zaehler, 3) = Header.Bitrate / 1000 & "" & _
          "kBit/s"
 
        'Channel-Modus in Array einlesen
        ID3_tag_array(v_schleifen_zaehler, 4) = Header.ChannelModeText