Crear subcarpetas, mover archivos

Estoy intentando organizar un montón de audiolibros y me gustaría automatizar parte del trabajo. Tengo conocimientos muy básicos de Applescript, pero normalmente puedo encontrar un scriptlet en línea para hacer el trabajo que quiero. Este todavía no lo he conseguido. Mis archivos son así:

Libros/Autor1/Libro.mp3

Libros/Autor2 - Libro.mp3

Libros/Autor3/Libro.mp3

Lo que quiero hacer es seleccionar los libros que no están en una subcarpeta de Autor, crear una subcarpeta con el nombre del Autor, renombrar el archivo a sólo el título del libro y finalmente mover el libro a la carpeta recién creada. He probado el siguiente script y funciona en parte. Lo hace todo excepto mover el archivo al final. Me da un error que dice: "error" "El buscador obtuvo un error: Handler no puede manejar objetos de esta clase" número -10010". ¿Hay alguna forma de cambiarlo para que funcione? Si sirve de algo, los archivos están en una unidad adjunta (smb://NAS._smb._tcp-local/Audiobooks/Books). Probablemente haya errores de sintaxis para los puristas, pero mientras funcione, no soy exigente :)

tell application "Finder"
    set selectedFiles to selection as alias list

    set containingFolder to container of item 1 of selectedFiles as alias

    repeat with f from 1 to count of selectedFiles
        set thisItem to item f of selectedFiles
        set oldName to thisItem's name

        set newFolderName to text 1 thru ((get offset of "-" in oldName) - 2) of oldName
        set newFileName to text ((get offset of "-" in oldName) + 2) thru end of oldName

        set name of thisItem to newFileName

        move newFileName to (make new folder at containingFolder with properties {name:newFolderName})
    end repeat
end tell