¿Cómo puede una gota de AppleScript darme una lista de nombres de los elementos del Finder?

Una solución que he encontrado es bastante más complicada de lo que pensé que sería.

Lo pegaré aquí para quien esté interesado en hacer lo mismo, ¡y con la esperanza de que alguien tenga una solución más 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"...

Y así hasta el trozo que lo pega en TextWrangler.