Copy POSIX Path to Clipboard

gistfile1.txt

to joinList(aList, delimiter)
    set retVal to ""
	set prevDelimiter to AppleScript's text item delimiters
	set AppleScript's text item delimiters to delimiter
	set retVal to aList as string
	set AppleScript's text item delimiters to prevDelimiter
	return retVal
end joinList

on run {input, parameters}
	tell application "Finder"
		set posixPaths to {}
		set theItems to selection
		repeat with itemRef in theItems
			try
				set end of posixPaths to POSIX path of (itemRef as text)
			end try
		end repeat
		set the clipboard to my joinList(posixPaths, "\n")
	end tell
	return input
end run