set MasterFolder to choose folder with prompt "Sélectionner le dossier contenant les fichiers à renommer"
tell application "Finder"
set FolderContents to files of folder MasterFolder
end tell
repeat with thisFile in FolderContents
set extens to thisFile -- recupere l'extension du fichier
set lextension to name extension of extens
set thisFilesName to name of thisFile -- récupere le nom du fichier complet
set sauv to AppleScript's text item delimiters --sauvegarder la variable delimiteur
set AppleScript's text item delimiters to {"."} --récupère la partie avant le dernier "."
set elements to text items of thisFilesName
set nomcourt to (items 1 thru -2 of elements) as string
set ancien_nom to nomcourt -- nom sans extension
set AppleScript's text item delimiters to sauv --restaurer la variable delimiteur
set newName to characters 1 thru -6 of ancien_nom as string --recupere le nom jusqu'au 5ieme caractere avant la fin
set nouveau_nom to newName & "." & lextension --le nouveau nom avec le . et l'extension
try
set name of thisFile to nouveau_nom --renomme le fichier
on error
set lelog to open for access ((path to desktop folder as text) & "les erreurs.txt") as text with write permission
write "Le fichier : " & ancien_nom & " devait devenir " & nouveau_nom & " qui existe déja" & return to lelog starting at eof
close access lelog
end try
end repeat
tell application "Finder"
(display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"})
end tell