Zitat:
Original geschrieben von Sesa_Mina
mal ganz simpel...
Code:
Open "mymp3.mp3" For Binary As #1 Len = 1
FLen = LOF(1)
T = Space$(FLen)
Get #1, , T
Close #1
ID3Tag = Right$(T, 128)
Somit hast die letzten 128 byte des files isoliert.
dann änderst die.
dann...
Code:
Open "mymp3.mp3" For Binary As #1 Len = 1
Put #1,FLen-128,ID3Tag
close #1
und schon is der modifizierte tag wieder im file drin.
Alles klar?
Und zum Aufbau des tags fragst ambesten mal g00gle.
|
heut bin ich endlich dazu gekommen, mir das ganze anzusehen...
Nur funkts leider nicht!!
Bekomm folgende Fehlermeldung:
Zitat:
Laufzeitfehler 458
Variable verwendet einen in Visual Basic nicht unterstützten Typ der Automatisierung
|
Der Fehler kommt genau in der Zeile vom Get #1, , T.