om du kör Tiger så kan du använda det nya Sort-kommandot för att få fram vilka objet som ska kastas och bibehållas
tell application "Finder"
set myItemsToDelete to items 3 through -1 of (sort (items of desktop) as alias list by modification date)
set myItemsToKeep to items 1 through 2 of (sort (items of desktop) as alias list by modification date)
end tell
Du behöver dock lägga på felhantering och lägga in det i ett mappkommandomanus