Перенос библиотеки iTunes под Mac OS X

set oldRoot to "/Volumes/Storage/Media/Музыка/Mp3/"
set newRoot to "/Users/lerm/Music/Library/"
set oldLength to (length of oldRoot) + 1
 
tell application "iTunes"
	set libPlaylist to library playlist 1
	set libLength to count of file tracks of libPlaylist
	repeat with i from 1 to libLength
		log i
		set curTrack to track i of libPlaylist
		if get class of curTrack is file track then
			set curLocation to location of curTrack
			set curPath to POSIX path of curLocation
			if curPath starts with oldRoot then
				set newPath to newRoot & (text oldLength thru length of curPath)
				set newFile to newPath as POSIX file
				set location of curTrack to newFile
			end if
		end if
	end repeat
end tell
log "Done."