本文系海特网论坛斑竹CUTE原创,版权归海特及其本人所有,欢迎转载,请保留完整信息

Sub ListID3TagsFile(File)
  Dim id3: Set id3 = CreateObject("CDDBControl.CddbID3Tag")
  id3.LoadFromFile File.Path, True
  WScript.Echo File.Name, id3.Album, id3.Title, id3.LeadArtist
End Sub
可以更新TAGS
Sub UpdateID3TagsFile(File)
  Dim id3: Set id3 = CreateObject("CDDBControl.CddbID3Tag")
  id3.LoadFromFile File.Path, False
  id3.Title="test"
  id3.SaveToFile(File)
End Sub
realated
http://www.motobit.com/tips/detpg_list-id3-tags-script/
http://www.autoitscript.com/forum/index.php?showtopic=17362&hl=id3
http://www.motobit.com/tips/detpg_change-id3-tags-script/