Mit diesem VBA-Code lese ich meine Musikdateien ein:
' nächste Datei einlesen
Open MP3FileName For Binary As #OpenZeileNeueTitel
MP3FileContent = Space$(LOF(OpenZeileNeueTitel))
Get #OpenZeileNeueTitel, , MP3FileContent
' Version bestimmen
ID3Version = Str$(Asc(Mid$(MP3FileContent, 4, 1))) & "." & Trim$(Str$(Asc(Mid$(MP3FileContent, 5, 1))))
' ID3-Tag posotionieren
ID3Position = InStr(MP3FileContent, "ID3")
' ID3Tag-Länge in VBA-Format konvertieren
ID3Length = &H200000 ID3Length = &H200000 * Asc(Mid$(MP3FileContent, ID3Position + 6, 1)) _
+ &H4000 * Asc(Mid$(MP3FileContent, ID3Position + 7, 1)) _
+ &H80 * Asc(Mid$(MP3FileContent, ID3Position + 8, 1)) _
+ Asc(Mid$(MP3FileContent, ID3Position + 9, 1))
' Länge ändern (z. B.: + 10)
ID3Length = ID3Length + 10
' neue Länge in ID3-Format konvertieren
??????
... und da fehlen mir die nötigen VBA-Kenntnisse. Habe schon einige Ziet im Internet recherchiert aber leider keine Lösung gefunden.
|