tell application "iTunes"
-- Playlistname, in den die Lieder verschoben werden
set listName to "_Lieder ohne Playlist"
-- Nichte verändern!
set idsInListen to {}
set nichtVerwendne to {"Mediathek", "Filme", "Musik", listName}
set alleListen to (name of every playlist)
repeat with naechsteListe in alleListen
try
if (naechsteListe is not in nichtVerwendne) then set idsInListen to idsInListen & (database ID of tracks of playlist naechsteListe)
end try
end repeat
if not (exists playlist listName) then make new playlist with properties {name:listName}
set iTunesMediathek to library playlist 1
set alleTracks to (count of file tracks of iTunesMediathek)
repeat with naechsterTrack from alleTracks to 1 by -1
try
if ((database ID of (file track naechsterTrack of iTunesMediathek)) as integer) is not in idsInListen then duplicate (file track naechsterTrack of iTunesMediathek) to playlist listName
end try
end repeat
end tell