(続き) ---------------------------------------------- on open of fileList tell application "Finder" set volumeKind to kind of the startup disk repeat with oneFile in fileList if (kind of oneFile) as string is equal to volumeKind then eject oneFile else move oneFile to trash end if end repeat end tell end open
on run tell application "Finder" activate try --- go to trash set target of Finder window 1 to trash on error error_message --- new window with trash open trash end try end tell end run ---------------------------------------------- --- Written by Paolo Portaluri