tpsmate.scpt

set the_array to {}

tell application "Finder"
  set these_items to the selection
end tell

repeat with i from 1 to the count of these_items
	set end of the_array to ""
	set this_item to (item i of these_items) as text
	tell application "TPSMate"
		set item i of the_array to (upload POSIX path of this_item)
	end tell
end repeat

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

set pic_list to joinList(the_array, return)

tell application "TPSMate"
	notify pic_list
end tell