Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\DaCeige\Music\iTunes\iTunes Music")
Set colSubFolders = objFolder.Subfolders

'get inside each artist's folder
For Each objSubFolder in colSubFolders
	'Wscript.Echo objSubFolder.Name
	'once inside the folder do the following...
	Set colSubSubFolders = objSubFolder.Subfolders
	'Get inside each album folder
	For Each objSubSubFolder in colSubSubFolders
		'once inside do the following
		'WScript.Echo vbtab & objSubSubFolder.name
		Set colMP3Files = objSubSubFolder.Files
		For Each objMP3File in colMP3Files
			'Wscript.Echo vbtab & objMP3File.Name
			strCurrentMP3Name = objMP3File.Name
			For Each objMP3File2 in colMP3Files
				'Wscript.Echo Left(strCurrentMP3Name, Len(strCurrentMP3Name)-4) & vbtab & Left(objMP3File2.Name, Len(objMP3File2.Name)-6)
				If UCase(Left(strCurrentMP3Name, Len(strCurrentMP3Name)-4)) = UCase(Left(objMP3File2.Name, Len(objMP3File2.Name)-6)) Then
					'Wscript.Echo(UCase(strCurrentMp3Name & vbtab & objMP3File2.Name))
					'WScript.Echo objMP3File.Size & vbTab & objMP3File2.Size
					WScript.Echo "1" & vbTab & objMP3File.Size & vbTab & UCase(strCurrentMp3Name)
					WScript.Echo "2" & vbTab & objMP3File2.Size & vbTab & UCase(objMP3File2.Name)
					MP3Size1 = objMP3File.Size
					MP3Size2 = objMP3File2.Size
					MP3SizeDiff = objMP3File.Size - objMP3File2.Size
					WScript.Echo "-" & vbTab & MP3SizeDiff
					If (MP3SizeDiff > -10000) Then
						WScript.Echo "*" & vbTab & "DELETE2" & vbTab & objMP3File2.Name
						objFSO.DeleteFile(objMP3File2.Path)
					Else
						WScript.Echo "*" & vbTab & "DELETE1" & vbTab & objMP3File.Name
						objFSO.DeleteFile(objMP3File.Path)
						WScript.Echo "*" & vbTab & "RENAME" & vbTab & objMP3File2.Name & " -> " & strCurrentMP3Name
						objMP3File2.Name = strCurrentMP3Name
					End If					
					WScript.Echo " "
				End If
			Next
		Next
	Next
Next