--on adding folder items to Mon_Dossier after receiving Liste_Fichiers
tell application "Finder"
set chaque_fichier to choose file with prompt "Sélectionnez le dossier"
set Fimage to {"jpg", "jpeg", "png", "tiff", "gif", "bmp", "psd"} -- liste des extensions a traiter dans Fimage avec fonction mdls
set nbcadre to display dialog "Entrer le nombre de cadre à créer :" default answer "1"
set nbcadre to text returned of result
set listcadre to {}
repeat nbcadre times
set epaisseur to display dialog "Entrer la valeur pour l'épaisseur de cadre 1 :" default answer "0,005"
set epaisseur to text returned of result
set listcadre to listcadre & epaisseur
set couleur to display dialog "Entrer la couleur du cadre 1 au format RRVVBB :" default answer "000000"
set couleur to text returned of result
set listcadre to listcadre & couleur
end repeat
-- traitement des fichiers :
--repeat with chaque_fichier in liste_fichiers -- répète avec chaque fichier du dossier en cour
-- traitement d'un fichier
tell application "Finder"
set lapos to 1
repeat with i from 1 to nbcadre
set nom to name of chaque_fichier --récupère le nom du fichier
set AppleScript's text item delimiters to {"."} -- defini le separateur
set lextension to get last text item of nom -- recupère l'extension
set lefichier to chaque_fichier as string --récupère le chemin du fichier au format chaine de caractères
if lextension is in Fimage then -- si fichier video de la liste Fimage
set lechemin to POSIX path of lefichier
set lahauteur to do shell script "/usr/local/bin/exiftool -imageHeight " & quoted form of POSIX path of lefichier
set lalargeur to do shell script "/usr/local/bin/exiftool -imageWidth " & quoted form of POSIX path of lefichier
set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
set AppleScript's text item delimiters to {": "}
set lalargeur to last text item of lalargeur
set lahauteur to last text item of lahauteur
set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
set largeur to lalargeur as number
set hauteur to lahauteur as number
--recup valeur lecadre et couleur
set lecadre to item lapos of listcadre
set couleur to item (lapos + 1) of listcadre
if largeur > hauteur then
set cadre to round (largeur * lecadre)
else
set cadre to round (hauteur * lecadre)
end if
set Lcadre to (largeur + cadre) as string
set Vcadre to (hauteur + cadre) as string
set lacommande to "sips -p " & Vcadre & " " & Lcadre & " -s formatOptions 100 --padColor " & couleur & " -i " & quoted form of lechemin
do shell script lacommande
end if
set lapos to lapos + 2
end repeat
end tell
--end repeat -- fichier suivant
end tell
--end adding folder items to