Let's save time with my little script, where purpose is to save
Do***ents of Text-applications with the title as name in front window
of Finder (you can do 2 actions in one step, instead to confirm
separately 100 times which name, which path to choose)
--Test
tell application "System Events"
set x to name of every process whose frontmost is true
set x to x as text
end tell
tell application "Finder"
set y to (folder of front window) as text
set the_path to (y & "Test")
end tell
tell application x
activate application x
try
set i to window 1
on error
set i to do***ent 1
end try
try
save i in the_path
on error the error_message number the error_number
display dialog "Error: " & the error_number & ". " &
the
error_message buttons {"Cancel"} default button 1
end try
end tell
--Unfortunately it's not functional, simple what it is.