set listofpl to {"In Our Time", "Inside Mac Radio", "Adam Curry Daily Source Code"} tell application "iTunes" set playlist_list to (get every user playlist whose smart is false) --find playlist called "Podcasts", create it if it doesn't exist set podlistexists to false repeat with k from 1 to count of playlist_list if name of item k of playlist_list = "Podcasts" then set podlist to item k of playlist_list set podlistexists to true end if end repeat if podlistexists is false then set podlist to make new playlist set the name of podlist to "Podcasts" end if --check for a playlist whose name that matches one in listofpl repeat with j from 1 to count of playlist_list repeat with i from 1 to count of listofpl if item i of listofpl = name of item j of playlist_list then --for each song in this playlist repeat with t from 1 to ((count of every file track) of item j of playlist_list) --move songs into Podcasts playlist add (get location of file track t of item j of playlist_list) to podlist --change genre tell file track t of item j of playlist_list set genre to "Podcast" end tell end repeat --erase playlist delete item j of playlist_list return end if end repeat end repeat end tell