В вашем скрипте есть несколько проблем:
При настройке переменных choose folder
необходимо заключить скобки в choose folder
, чтобы заставить Finder преобразовать псевдоним 1006 * возвращается choose folder
в спецификаторе объекта :
set originFolder to folder (choose folder)
Цикл, который перемещает элементы, завершится с ошибкой индекса вне границ, поскольку количество элементов в originFolder
изменяется при каждой итерации цикла при перемещении элементов.
Лучшее решение - сначала вычислить индексы файлов, которые должны быть перемещены, а затем Finder выполнит операцию перемещения за один шаг.:
tell application "Finder"
set originFolder to folder (choose folder)
set destFolder to folder (choose folder)
set indexes to {}
repeat with i from 4 to (count of items in originFolder) by 4
copy i to end of indexes
end repeat
move (every item of originFolder whose index is in indexes) to destFolder
end tell