iTunes morceaux cochés / décochés

Salut,

Je t'ai fait un petit script qui liste les morceaux décochés dans un fichier intitulé Unchecked.txt placé sur le bureau.

Ce script te convient-il ?

Bloc de code:
property uncheckedTracks : ""

on run
	tell application "iTunes"
		set thePlaylist to playlist "musique"
		set nbrTrack to count of tracks of thePlaylist
		repeat with aTrack from 1 to nbrTrack
			set thisTrack to track aTrack of thePlaylist
			if enabled of thisTrack is false then
				set trackName to name of thisTrack
				set albumName to album of thisTrack
				set artistName to artist of thisTrack
				set uncheckedTracks to (uncheckedTracks & trackName & " - " & albumName & " - " & artistName & return)
			end if
		end repeat
	end tell
	writeFile(uncheckedTracks)
end run


on writeFile(theData)
	set PathFile to (((path to desktop) as string) & "Unchecked.txt")
	set x to open for access file (PathFile as Unicode text) with write permission
	try
		set eof x to 0
		write theData to x
		close access x
	on error
		close access x
	end try
end writeFile