Copy the paths of Finder files and folders

yFinder.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 & POSIX path of (e as text) & return
		end repeat
		set the clipboard to theList
	else if (count of sel) is equal to 1 then
		set the clipboard to POSIX path of (sel as text)
	else
		set the clipboard to POSIX path of (target of window 1 as alias)
	end if
end tell