本文系海特网论坛斑竹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
