[AS] TAGS - couleurs sur fichiers

[Emmanuel DEBONNET <adresse@cachée>]

Bonjour

J'aimerais mettre des couleurs sur des fichiers grâce a une liste de texte style TextEdit

Sur le Web on trouve ce script qui permet de choisir en premier lieu un dossier contenant les fichiers 

et en deuxième lieu un fichier TextEdit avec la liste à tagué

Mais il y a un bug : 

Erreur dans Finder : Il est impossible de régler label index of every item of alias "Mac:_THEMES:" whose {"Baroque.indd

", "Base vierge.indd

", "Bois.indd

", "Bord de Mer.indd

", "Bordeaux.indd

"} contains name à 2.

Pouvez-vous m'aider à réparer ce script

Merci

Voici le script :)

try

set theFolder to (choose folder with prompt "Choisir le dossier avec les fichiers à tagué")

set textFile to (choose file with prompt "Choisir le fichier TextEdit avec la liste de fichiers à tagué" without invisibles)

tell application "TextEdit"

open textFile

set fileNames to every paragraph of text of document 1

close document 1

end tell

-------------------------------------------------------------------------------------------------------------

-- No color = 0

-- Orange = 1

-- Red = 2

-- Yellow = 3

-- Blue = 4

-- Purple = 5

-- Green = 6

-- Gray = 7

tell application "Finder"

set label index of (every item whose name is in fileNames) of theFolder to 2

end tell

on error theError

display dialog theError buttons {"OK"} default button 1

end try