Developer CD Series 1993 April: Penguin on DISC/ADC Developer CD (1993-04) (''Penguin On DISC'')_iso/Dev.CD Apr 93.iso/System Software/System Extensions/AppleScript Beta/Example Scripts/Example Scripts (as text)/Finder Scripts/Trash ’em!

Text File | 1992-12-02 | 407 b | 13 lines | [TEXT/ToyS]

tell application "Finder"
    set Message to "Really move "
    set IsFirst to true
    repeat with zog in selection
        if not IsFirst then copy Message & ", " to Message
        set IsFirst to false
        copy Message & name of zog to Message
    end repeat
    display dialog Message & " to the Trash?" buttons {"Cancel", "Trash"} with icon 2
    if button returned of result is "Trash" then
        move selection to trash
    end if
end tell