Paste clipboard's contents to selected file's Get Info (Spotlight) comments

Question

Hi,
Could someone please help me in building an AppleScript that would paste the clipboard's current contents to the currently selected (in the Finder) file's Get Info (Spotlight) comments?
I know this can be done with an Automator workflow or Folder Action, but prefer an AppleScript.
Many thanks!

Answer 1

The following script will add (a space and then the clipboard) to the comments of the currently selected file. In case there are several items selected it only deals with the first one, and there is also a dialog to edit the final content:
<pre title="this text can be pasted into the Script Editor" style="font-family: Monaco, 'Courier New', Courier, monospace; font-size: 10px; padding: 5px; width: 720px; color: #000000; background-color: #E0E0E0; overflow: auto">set TheClipboard to (get the clipboard)
tell application "Finder" to try
set TheFIle to the first item of (get the selection)
set TheComment to the comment of TheFIle
set TheName to text ((length of (path to home folder as text)) + 1) thru -1 of (TheFIle as text)
if TheName ends with ":" then
set TheType to " folder "
else
set TheType to " file "
end if
display dialog ("Change the comment for the" & TheType & return & quoted form of TheName & "?") with title "Edit Spotlight Comment" default answer (TheComment & space & TheClipboard)
set comment of TheFIle to text returned of the result
end try
</pre>