Comment un droplet AppleScript peut-il me donner une liste de noms d'éléments du Finder ?

Une solution que j'ai trouvée est plus compliquée que je ne le pensais.

Je vais le coller ici pour tous ceux qui souhaitent faire la même chose, et dans l'espoir que quelqu'un ait une solution plus simple !

on open Dropped_Files
    tell application "Finder"
        set theList to {""}
        repeat with i from 1 to count of Dropped_Files
            set NameOfFile to name of (item i of Dropped_Files)
            set AppleScript's text item delimiters to return
            set NameOfFile2 to (NameOfFile as string) & return
            copy NameOfFile2 to end of theList
        end repeat
        set AppleScript's text item delimiters to ""
        set the clipboard to theList as string
    end tell
    nextStage(theList)
end open

on nextStage(theList)
    set songList to "Macintosh HD:Applications:Automator stuff:01b iTunes Scripts:SongLust.txt"
    tell application "TextWrangler"...

Et ainsi de suite jusqu'à la partie qui le colle dans TextWrangler.