あんまり簡単なんですぐできちゃったよ
使い方は自分で考えようね
on open drop_items
tell application "Finder"
repeat with obj in drop_items

set namae to comment of obj as text
set comento to name of obj as text

set name of obj to namae
set comment of obj to comento

end repeat
end tell
end open