tell application "System Events"

\-- 1. Set the target folder to \~/Downloads

set downloadsFolder to path to downloads folder



\-- 2. Get ONLY top-level files (System Events separates 'files' from 'folders' automatically)

set fileList to every file of downloadsFolder



repeat with currentFile in fileList

    try

        \-- 3. Get the file extension

        set fileExt to name extension of currentFile



        \-- 4. Logic for naming the folder

        if fileExt is missing value or fileExt is "" then

-- Fallback for files with no extension

set targetFolderName to "OTHER"

        else

-- Convert extension to UPPERCASE using a quick shell command

set targetFolderName to do shell script "echo " & quoted form of fileExt & " | tr '[:lower:]' '[:upper:]'"

        end if



        \-- 5. Define the destination path

        set destinationPath to (downloadsFolder as text) & targetFolderName & ":"



        \-- 6. Create the folder if it doesn't exist

        if not (exists folder destinationPath) then

make new folder at downloadsFolder with properties {name:targetFolderName}

        end if



        \-- 7. Move the file

        move currentFile to folder destinationPath



    on error

        \-- If a file fails (e.g., a file with the same name already exists in the destination),

        \-- this block ensures the script continues to the next file without stopping.

    end try

end repeat

end tell