Eliminando todos los archivos excepto algunos de una carpeta usando applescript

Estoy intentando escribir un script de Apple para eliminar todos los contenidos de una carpeta, excepto un archivo (stage.txt). Este es el guión que he escrito:

tell application "System Events"
    if exists folder "~/Library/Application Support/ABC/CS" then
        delete (every item of folder "~/Library/Application Support/ABC/CS" whose name is not "stage.txt")
    end if
end tell

Pero recibo el siguiente error: "Los eventos del sistema obtuvieron un error: el controlador AppleEvent falló". número -10000

Por favor ayuda.

PS: Si alguien sabe algún buen tutorial para comenzar a utilizar Apple Script, coméntalo amablemente. Gracias!