DaCeige

 

Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder("C:\Users\DaCeige\Music\iTunes\iTunes Music")

Set colSubFolders = objFolder.Subfolders

 

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