--Change icone du volume par l'icone du fichier choisi
repeat
set nameList to {"Tagger un fichier", "Tagger un volume ou un dossier"}
set choix to (choose from list the nameList with prompt "Sélectionner : " with title "Choix") as string
if choix is "false" then exit repeat -- Bouton Annuler
if choix is "Tagger un fichier" then
set lechemin to choose file with prompt "Sélectionnez le fichier a tagger"
--exit repeat
end if
if choix is "Tagger un volume ou un dossier" then
set lechemin to choose folder with prompt "Sélectionnez le volume ou le dossier a tagger"
--exit repeat
end if
set chemin to choose file with prompt "selectionner le fichier PNG source de l'icone"
tell application "Finder"
set cv to "c" --prépare la commande copier
activate
open information window of chemin -- ouvre fenetre info du fichier PNG
activate
end tell
-- copie l'icone
tell application "System Events" to tell process "Finder" to tell window 1
keystroke tab -- selectionne icone bouton
delay 0.5
keystroke (cv & "w") using command down -- copie icone avec c et ferme fenetre avec w
delay 0.5
end tell
--ouvre pour coller
tell application "Finder"
set cv to "v" --prepare commande coller
activate
open information window of lechemin --ouvre la fenetre info du volume cible
activate
end tell
tell application "System Events" to tell process "Finder" to tell window 1
keystroke tab -- selectionne l'icone
keystroke (cv & "w") using command down -- colle icone avec v et ferme fenetre avec w
end tell
exit repeat
end repeat
