Details von einer Mp3-Datei ändern

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Higlav.

    Details von einer Mp3-Datei ändern

    Hallo liebe VB-Paradise-Community,

    Ich steh' momentan gerade auf dem Schlauch:
    Damit einige Mp3-Dateien nach dem gleichen Muster beschriftet sind, habe ich mir ein kleines Tool gebastelt. Ich wollte die Details der Mp3-Dateien auslesen (die, die man bei den Eigenschaften sieht [RMT] -> "Eigenschaften") und mit denen die Dateien umbenennen.
    Das habe ich ohne grosse Probleme hinbekommen.

    Mein Code, um die Details auszulesen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Function ReadDetails(ByVal Pfad As String) As String()
    3. Dim Sh As New Shell32.Shell
    4. Dim StrFol As String
    5. Dim strDat As String
    6. Dim Fol As Shell32.Folder
    7. Dim Itm As Shell32.FolderItem
    8. Dim i() As Integer = {21, 20, 14, 16, 26} 'Titel,Interpret,Album,Genre,Titelnummer
    9. Dim a As String
    11. StrFol = Pfad.Substring(0, Pfad.LastIndexOf("\"))
    12. strDat = Pfad.Substring(Pfad.LastIndexOf("\") + 1)
    13. Fol = Sh.NameSpace(StrFol)
    14. Itm = Fol.ParseName(strDat)
    15. a = ""
    17. For j As Integer = 0 To i.GetUpperBound(0)
    18. a = a & Fol.GetDetailsOf(Itm, i(j)) & ";"
    19. Next
    20. a = a.Substring(0, Len(a) - 1)
    22. Return a.Split(CChar(";"))
    24. End Function


    Nun möchte ich diese Tags auch in die Datei schreiben können.
    Hier komme ich irgendwie nicht weiter: Es gibt im Internet zwar viele Beispiele, wie man das schafft, aber ich bin mir nicht einmal sicher, welche ID3-Version (ID3v1/v2/v3/v4/vn ?) ich nutzen muss, da mir nicht einmal das Auslesen dieser gelang. ;(
    Ich dachte mir, wenn's ein Shell32.Folder.GetDetailsOf() gibt, wieso dann kein Shell32.Folder.SetDetailsOf()?
    Leider konnte mir MSDN im Bezug auf das Detail-Schreiben mit Shell nicht weiterhelfen...

    Ich kann jetzt zwar die Details auslesen, aber nicht schreiben.

    Könntet ihr mir bitte helfen, aus diesem Urwald der Möglichkeiten die Richtige zu finden?

    Mit freundlichen Grüssen

    Higlav

Facebook
Telefonspende