使用 VBA 编辑 mp3 标签

如何解决使用 VBA 编辑 mp3 标签

我使用 CddbID3Tag dll 并且可以完美地检索标记，但是如果我尝试更改它们然后保存什么都不会发生

我使用此代码更改标签

在一个模块中

Public Sub SetTagItem(ByVal Path As String,ByVal Item As TagItem,ByVal Value As String)

  Dim id3Tag As Object ' CDDBCONTROLLib.CddbID3Tag

  Set id3Tag = CreateObject("CDDBControl.CddbID3Tag")
  id3Tag.LoadFromFile Path,False
  Select Case Item

    Case Album: id3Tag.Album = Value

    Case BeatsPerMinute: id3Tag.BeatsPerMinute = Value

    Case comments: id3Tag.comments = Value

    Case copyrightholder: id3Tag.copyrightholder = Value

    Case copyrightyear: id3Tag.copyrightyear = Value

    Case FileId: id3Tag.FileId = Value

    Case Genre: id3Tag.Genre = Value

    Case ISRC: id3Tag.ISRC = Value

    Case Label: id3Tag.Label = Value

    Case LeadArtist: id3Tag.LeadArtist = Value
    
    Case Movie: id3Tag.Movie = Value
    
    Case PartOfSet: id3Tag.PartOfSet = Value

    Case Title: id3Tag.Title = Value

    Case TrackPosition: id3Tag.TrackPosition = Value

    Case Year: id3Tag.Year = Value

  End Select

  id3Tag.SavetoFile Path

  Set id3Tag = nothing

End Sub

而不是按钮

SetTagItem "m:\tst\test.mp3",LeadArtist,"Bob Dylan"