Dim aktuell As ID3v1
 
Private Type ID3v1
  TAG As String * 3       ' TAG
  Title As String * 30    ' Titel des Liedes
  Artist As String * 30   ' Interpret
  Album As String * 30    ' Album
  Year  As String * 4     ' Erscheinungsjahr
  Comments As String * 30 ' Kommentar
  Genre As Byte           ' Indexnummer des Genres
End Type
 
Private Function MP3_ReadID3v1(ByVal sFIle As String) As ID3v1
  Dim F As Integer
  Dim UDT_MP3 As ID3v1 
  F = FreeFile
  Open sFIle For Binary As #F
  Seek #F, LOF(F) - Len(UDT_MP3) + 1
  Get #F, , UDT_MP3
  Close #F
  If UDT_MP3.TAG = "TAG" Then
    ' "TAG" vorhanden?
    MP3_ReadID3v1 = UDT_MP3
  End If
End Function
 
Private Sub Command_ID3_Speichern_Click()
Dim bisher As ID3v1
Dim Position As Integer
Dim file As String
Dim i As Integer
If List_Dateien.SelCount < 2 Then
    Position = List_Dateien.ListIndex
    Datei = List_Dateien.List(Position)
    bisher = MP3_ReadID3v1(Ordner & "\" & Datei)
    If Check_Artist_übernehmen.Value = 1 Then
        aktuell.Artist = Text_Artist.Text
    Else
        aktuell.Artist = bisher.Artist
    End If
    If Check_Title_Übernehmen.Value = 1 Then
        aktuell.Title = Text_Title.Text
    Else
        aktuell.Title = bisher.Title
    End If
    If Check_Album_Übernehmen.Value = 1 Then
        aktuell.Album = Text_Album.Text
    Else
        aktuell.Album = bisher.Album
    End If
    If Check_Genre_Übernehmen.Value = 1 Then
        aktuell.Genre = Combo_Genre.ListIndex
    Else
        aktuell.Genre = bisher.Genre
    End If
    file = Ordner & "\" & Datei
    MP3_SaveID3v1 file, aktuell
Else
    For i = 0 To List_Dateien.ListCount
        If List_Dateien.Selected(i) = True Then
                Datei = List_Dateien.List(i)
                bisher = MP3_ReadID3v1(Ordner & "\" & Datei)
                If Check_Artist_übernehmen.Value = 1 Then
                    aktuell.Artist = Text_Artist.Text
                Else
                    aktuell.Artist = bisher.Artist
                End If
                If Check_Title_Übernehmen.Value = 1 Then
                    aktuell.Title = Text_Title.Text
                Else
                    aktuell.Title = bisher.Title
                End If
                If Check_Album_Übernehmen.Value = 1 Then
                    aktuell.Album = Text_Album.Text
                Else
                    aktuell.Album = bisher.Album
                End If
                If Check_Genre_Übernehmen.Value = 1 Then
                    aktuell.Genre = Combo_Genre.ListIndex
                Else
                    aktuell.Genre = bisher.Genre
                End If
                file = Ordner & "\" & Datei
                MP3_SaveID3v1 file, aktuell
        End If
    Next i
End If
End Sub
 
Private Sub MP3_SaveID3v1(ByVal sFIle As String, UDT_MP3 As ID3v1)
  Dim G As Integer
  G = FreeFile
  Open sFIle For Binary Access Write As #G
  Seek #G, FileLen(sFIle) - 127
  Put #G, , UDT_MP3
  Close #G
End Sub