Export Apple Notes via AppleScript

Export Notes.AppleScript

tell application "TextEdit"
  activate
	make new document
end tell


tell application "Notes"
	if folder "Archive" exists then
		set output to ""
		repeat with aNote in notes in folder "Archive"
			set noteText to "<!-- ### Start Note ### -->\n"
			set noteText to noteText & ("<h1>" & name of aNote as string) & "</h1>\n"
			set noteText to noteText & ("<p>Creation Date: " & creation date of aNote as string) & "</p>\n"
			set noteText to noteText & ("<p>Modification Date: " & modification date of aNote as string) & "</p>\n"
			set noteText to (noteText & body of aNote as string) & "\n\n"
			
			tell application "TextEdit"
				activate
				set oldText to text of document 1
				set text of document 1 to oldText & noteText
			end tell
			
		end repeat
	else
		display dialog "Aww!"
	end if
end tell