AppleScript: Di chuyển tệp qua kéo và thả

Tôi cần tạo quy trình làm việc cho phép người dùng thả tệp vào ứng dụng và sau đó chuyển các tệp đó sang một thư mục cụ thể để xử lý dựa trên loại tệp của họ.

Cho đến nay, tôi đã không vượt qua được phần kéo, thả và di chuyển!

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

Khi tôi thực hiện thao tác kéo và thả, tôi nhận được:

Handler có thể xử lý các đối tượng của lớp này. Trình tìm kiếm có lỗi:   Handler có thể xử lý các đối tượng của lớp này. (-10010)

Tôi đã thử item thay vì a, nhưng điều đó đã cho tôi cùng một lỗi.

Lâu lắm rồi tôi mới sử dụng AppleScript ...

Thay đổi dòng sau mã từ:

move a to folderSpool

Đến:

move theCurrentDroppedItem to folderSpool

Trong bạn mã , a là một số nguyên , được lập chỉ mục from 1 to length of theDroppedItems, vì vậy bạn đã cố gắng để di chuyển một số nguyên (tất nhiên bạn không thể) không phải tập tin, đó là theCurrentDroppedItem.