MP3 Tags Bearbeiten
09.07.2022 19:48:27
MyOwnShadow
das Thema MP3 Tags bearbeiten taucht ja desöfteren auf.
Trotzdem möchte ich es noch einmal aufwärmen, da es vielleicht inzwischen einfachere Möglichkeiten gibt es zu lösen.
Ich möcht in meinen MP3 Dateien lediglich den Kommentar ändern.
Bei den bisher beschriebenen Verfahren muss mann ja genaue Kenntnisse über die einzelnen Einträge haben, beispilesweise die Stringlänge.
Ich müsste dann alle einzeln auslesen und wieder zurückschreiben. Bei 300 Tags ist das sehr aufwendig.
Auslesen kann ich ja alle 300 Taginfos ja ganz einfach mit GetDetailsOF(...)
Leider gibt es kein analoges SetDetailsOF(...).
Dann wäre die Welt in Ordnung und ich könnte meinen Eintrag einfach ändern.
Deshalb meine Frage an dieser Stelle, gibt es vielleicht doch eine einfache Möglichkeit die ich nur noch nicht gesehen habe ?
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(CVar(Pfad + "\"))
k = 5
' Alle Dateien im ordner durchlaufen
For Each vFilename In objFolder.Items
k = k + 1
' Den Dateinamen ausgeben
ThisWorkbook.Sheets(1).Cells(1, k) = vFilename
' alle Tags durchlaufen und ausgeben
For i = 1 To 300
SuchInfo = objFolder.GetDetailsOF(CVar(vFilename), i)
ThisWorkbook.Sheets(1).Cells(i + 1, k) = SuchInfo
' Hier würde ich gerne den Kommentar anpassen
Next
Next vFilename