Imports System.Data
Imports System.IO
Imports System.Data.OleDb
'Imports IniFile
 
Public Class AndiMp3Tags
 
    ' ID3v2-Infostruktur
    Private Structure ID3v2
        Dim sTitle As String
        Dim sArtist As String
        Dim sAlbum As String
        Dim sComment As String
        Dim sYear As String
        Dim sGenre As String
        Dim sComposer As String
        Dim sURL As String
        Dim sOrgArtist As String
        Dim sCopyright As String
        Dim sEncodeBy As String
        Dim sTrack As String
        Dim sMedium As String
        Dim sLen As String
    End Structure
 
    ''' <summary>
    ''' Prüft, ob eine MP3-Datei über ID3v2-Infos verfügt
    ''' </summary>
    ''' <param name="sFile">Dateiname der MP3-Datei</param>
    ''' <returns>Länge des ID3v2-Tags</returns>
    Private Function MP3_ID3v2Exists(ByVal sFile As String) As Integer
        Dim bData() As Byte
        Dim sData As String = ""
        Dim nID3v2Size As Integer = 0
 
        ' Prüfen, ob Datei auch existiert
        If System.IO.File.Exists(sFile) Then
            Try
                ' Datei zum Lesen öffnen
                Dim oStream As New System.IO.FileStream(sFile, IO.FileMode.Open)
 
                ' ersten 3 Bytes lesen und prüfen, ob es sich hierbei
                ' um den Eintrag "ID3" handelt
                ReDim bData(2)
                oStream.Read(bData, 0, 3)
                sData = System.Text.Encoding.Default.GetString(bData)
                If sData = "ID3" Then
                    ' Größe des ID3v2-Tags ermitteln
                    ReDim bData(3)
                    oStream.Seek(6, IO.SeekOrigin.Begin)
                    oStream.Read(bData, 0, 4)
 
                    sData = ""
                    For z As Integer = 2 To 0 Step -1
                        For i As Integer = 0 To 6
                            sData &= CStr(Math.Abs(bData(z) And (2 ^ i)))
                        Next i
                    Next z
 
                    For i As Integer = 7 To 27
                        nID3v2Size += ((2 ^ i) * Val(sData.Substring(i - 7, 1)))
                    Next i
                    nID3v2Size += bData(3) + 10
                End If
                oStream.Close()
            Catch ex As Exception
            End Try
        End If
 
        Return (nID3v2Size)
    End Function