1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| -- renomme les fichiers sélectionnés avec leur titre KMDItemTitle si il existe, sinon, pas de changement du nom.
tell application "Finder" to set Liste to selection
repeat with monFichier in Liste
set monTitre to Titre(monFichier as string)
if monTitre is not "" then -- changement du nom
tell application "Finder" to set name of monFichier to monTitre & "." & name extension of monFichier
end if
end repeat
display alert "Traitement fait sur " & (count of Liste) & " fichiers."
on Titre(F)
log "debut titre=" & F
set Chemin to POSIX path of F
set AppleScript's text item delimiters to ASCII character 34 -- le guillemet
try
set S to do shell script "mdls " & quoted form of Chemin & " | grep kMDItemTitle"
on error
return "" -- erreur pas de titre
end try
if (length of S < 38) or ((count of text item of S) < 2) then return -- pas de titre trouvé
return text item 2 of S
end Titre |
Partager