Dim i, mySong, Result For i = 0 To mySongList.Count - 1 Set mySong = mySongList.Item(i) Result = FilePathExtensionToLowercase(mySong.Path) If Result <> "" Then mySong.Path = Result mySong.UpdateDB End If Next

Dim i, mySong, Result For i = 0 To mySongList.Count - 1 Set mySong = mySongList.Item(i) Result = FilePathExtensionToLowercase(mySong.Path) If Result <> "" Then mySong.Path = Result mySong.UpdateDB End If Next