BIG HUG

Code: Select all
Dim CommonTags : CommonTags = Array("%A", "%L", "%S", "%G", "%T", "%Y", "%X", "%R", "%C", "%M", "%B", "%U", "%V", "%W", "%P", "%F", "%ZO")
' Enumeration of the most important fields in the SongData object
Dim SongDataFields : SongDataFields = Array( _
"AlbumArtistName", _
"AlbumName", _
"ArtistName", _
"Author", _
"Band", _
"Bitrate", _
"BPM", _
"Comment", _
"Conductor", _
"Copyright", _
"Custom1", _
"Custom2", _
"Custom3", _
"Encoder", _
"Genre", _
"InvolvedPeople", _
"Lyricist", _
"Lyrics", _
"MediaLabel", _
"Mood", _
"MusicComposer", _
"Occasion", _
"OriginalArtist", _
"OriginalLyricist", _
"OriginalTitle", _
"OriginalYear", _
"Publisher", _
"Quality", _
"Rating", _
"Tempo", _
"Title", _
"TrackOrder", _
"Year", _
"Grouping")
Dim FieldDict : Set FieldDict = CreateObject("Scripting.Dictionary")
With FieldDict
.Add "%A", "ArtistName"
.Add "%C", "Author"
.Add "%G", "Genre"
.Add "%L", "AlbumName"
.Add "%M", "BPM"
.Add "%R", "AlbumArtistName"
.Add "%S", "Title"
.Add "%T", "TrackOrder"
.Add "%U", "Custom1"
.Add "%V", "Custom2"
.Add "%W", "Custom3"
.Add "%Y", "Year"
.Add "%P", "Path"
.Add "%ZO", "Grouping"
End With