¿Cómo eliminar la extensión de archivo en applescript (en Automator)?

EDITAR:
Este es el código de trabajo para que un servicio Automator de AppleScript codifique (ffmpeg) un archivo seleccionado por el usuario en un directorio seleccionado por el usuario, manteniendo el nombre del archivo original con una nueva extensión.

on run {input, parameters}

    --choose destination folder
    set path1 to (choose folder)
    set path2 to quoted form of POSIX path of path1

    --reduce extension from source file name and set to unix path
    tell (info for input) to set {Nm, Ex} to {name, name extension}
    set filename to text 1 thru ((get offset of "." & Ex in Nm) - 1) of Nm
    set in_file to POSIX path of input

    --make new folder with source file name
    tell application "Finder"
        make new folder at path1 with properties {name:filename}
    end tell

    --run ffmpeg shell script (put whatever command you need here)
    tell application "Terminal"
        do script "ffmpeg -y -i " & in_file & " -c:v copy -c:a copy " & path2 & "/" & filename & "/" & filename & "_copy.mp4"
    end tell
end run

Espero que esto ayude a las personas que luchan con AppleScript y se preguntan por qué-oh-por qué Apple evita que los scripts de shell muestren su progreso.