How do I finish this Create Smart Folder script?

Question

I've gotten most of the way on a homemade file tagging system. My Automator Service gets files, asks what to tag them, applies the tags to the Spotlight Comments, and then asks if you want to make a Smart Folder that finds one of your new tags.
If you do, it runs a script. The script asks what tags you would like to populate the Smart Folder, initiates a new smart folder based by appending the tags to "comment:" in the Spotlight search. But that's where I'm stuck. I can't figure out how to automate clicking the darn "Save" button to create the Smart Folder.
And feel free to co-opt my tagging strategy, it is working famously for a team of 5 in shared Dropbox folders.
Here's my Applescript. See the solitary comment in my code below for where I think I need help.
====================
display dialog "Which tags should be queried to populate the Tag Folder?" default answer "separate tags by spaces" buttons {"Cancel", "Continue"} default button 2
if (button returned of result) is "Continue" then
set the clipboard to "comment:" & text returned of the result
tell application "Finder" to activate
tell application "System Events" to tell process "Finder"
keystroke "n" using {command down, option down}
keystroke "v" using command down
end tell
tell application "Finder"
display dialog "What shall we name the Tag Folder?" default answer "" buttons {"Cancel", "OK"} default button 2
if (button returned of result) is "OK" then
set the clipboard to text returned of the result
tell application "Finder" to activate
tell application "System Events" to tell process "Finder"
# How do I tell Finder to click that Save button?
delay 0.5
keystroke "v" using command down
delay 0.5
key code 36
end tell
end if
end tell
end if
=================
Message was edited by: kerryspyder

Answer 1

My pleasure. Thanks for the star.
And here's a bonus that might some day prove useful:
*            key code 36*
*            if sheet 1 of sheet 1 of window 1 exists then*
*               click button "Replace" of sheet 1 of sheet 1 of window 1*
*            end if*
*         end tell*
Message was edited by: Pierre L.