AppleScript : Déplacement de fichiers par glisser-déposer

Je dois créer un flux de travail qui permette à l'utilisateur de déposer des fichiers sur l'application, puis de les déplacer vers un dossier particulier pour qu'ils soient traités en fonction de leur type de fichier.

Jusqu'à présent, je n'ai pas réussi à dépasser la partie "glisser, déposer et déplacer" !

on open theDroppedItems
    repeat with a from 1 to length of theDroppedItems
        set theCurrentDroppedItem to item a of theDroppedItems
        tell application "Finder"
            set folderSpool to folder "Spool" of desktop
            move a to folderSpool
        end tell
    end repeat
end open

Quand je fais le glisser-déposer, j'obtiens :

Le gestionnaire ne peut pas gérer les objets de cette classe. Le Finder a reçu une erreur : Handler ne peut pas gérer les objets de cette classe. (-10010)

J'ai essayé item au lieu de a mais cela m'a donné la même erreur.

Cela fait longtemps que je n'ai pas utilisé AppleScript...