Supprimer les 10 derniers caractères d'un nom de fichier en conservant l'extension

Vous posez deux questions différentes. L'une est "Comment supprimer les 10 derniers caractères d'un nom de fichier", tandis que l'autre consiste à passer d'un nom de fichier à un nom de fichier. [RF] Happy Hour 1 [jdhf2345].mp4 Happy Hour 1.mp4 .

Je ne sais pas vraiment à quelle question répondre, alors je pense que je vais répondre à la première ?

"Comment supprimer les 10 derniers caractères d'un nom de fichier ?

set myFiles to choose file with multiple selections allowed
repeat with myFile in myFiles
    tell application "System Events"
        set myName to the characters 1 thru ((offset of "." in (name of myFile as text)) - 1) of (name of myFile as text)
        tell application "Finder"
            set myExtention to name extension of (myFile as alias)
            set myNewName to characters 1 thru (((length of myName) - 10) as number) of (myName as text)
            set name of file (myFile as text) to (myNewName & "." & myExtention as text)
        end tell
    end tell
end repeat