' RemoveDeadTracks.vbs --------------------------------------
ITTrackKindFile = 1
deletedTracks = 0
set iTunesApp = WScript.CreateObject("iTunes.Application")
set mainLibrary = iTunesApp.LibraryPlaylist
set tracks = mainLibrary.Tracks
for each currTrack in tracks
' is this a file track?
if (currTrack.Kind = ITTrackKindFile) then
' yes, does it have an empty location?
if (currTrack.Location = "") then ' yes, delete it
currTrack.Delete()
deletedTracks = deletedTracks + 1
end if
end if
next
WScript.Echo "Removed " & deletedTracks & " dead track(s)."
' RemoveDeadTracks.vbs --------------------------------------
