Copy the paths of Finder files and folders (HFS path)

yFinderHFS.scpt

(*
if select multiple items, copy paths of them with one in each line;
if select an item, copy its path;
if none is selected, copy the current folder path.
*)

tell application "Finder"
	set sel to the selection
	if (count of sel) is greater than 1 then
		set theList to ""
		repeat with e in sel
			set theList to theList & e & return
		end repeat
		set the clipboard to theList
	else if (count of sel) is equal to 1 then
		set the clipboard to sel as text
	else
		set the clipboard to target of window 1 as text
	end if
end tell