tell application "Finder" --set to music directory set tunesFolder to ":Users:lxmorj:Music:iTunes:iTunes Music" as alias set artistFolders to folders of folder tunesFolder set n to count of artistFolders --main loop repeat with q from 1 to n set pathQ to item q of artistFolders as string set m to ((count of pathQ) - 1) set pathQ to characters 1 through m of pathQ as string set x to m --artist name getting loop repeat set z to x set char1 to character x of pathQ if char1 is ":" then exit repeat end if set x to x - 1 end repeat set artistQ to characters (z + 1) through m of pathQ as string set the clipboard to artistQ --hope your keybindings are default... tell application "iTunes7" tell application "System Events" activate application "iTunes7" keystroke "n" using {command down, option down} delay 1 keystroke "v" using command down delay 1 keystroke return delay 1 end tell end tell end repeat end tell