Quicktime save using applescript

Question

i have a lots of movies of various sizes and formats that I want to standardise.
I want 720x400 size in the same format as recorded (i.e. no transcoding). I can do this manually using quicktime by re-sizing the movie then saving as a self contained movie.
I know this does'nt actually resize the movie it just puts it into a .mov container that tells quicktime what size to "play" it at next time............
anyhow I`m happy with this solution. And looking at the quicktime library in applescript I see there is a " save self contained" command..... cool!
however I have coded this code:
set infile to choose file with prompt "select file:"
set outfile to choose file name with prompt "Save altered file here:"
try
tell application "QuickTime Player"
activate
close every window
open infile
set dimensions of document 1 to {720, 400}
tell document 1
save self contained file outfile
end tell
-- save document 1 given «class dfil»:file outfile, «class
savk»:self contained
close document 1 saving no
end tell
end try
The save line that is commented in currently does nothing, I don't really understand why.
The save line commented out, gets further by bringing up the save as window in Quicktime but i have no way of selecting save (automatically), I have tried to command a button click via the system events call (which works for other apps), but the script seems to be stalling at the save line, i.e. the button click is never executed.
anyone got any ideas?
cheers
Steve

Answer 1

sorry code came out wrong
set infile to choose file with prompt "select file:"
set outfile to choose file name with prompt "Save altered file here:"
try
tell application "QuickTime Player"
activate
close every window
open infile
set dimensions of document 1 to {720, 400}
tell document 1
save self contained file outfile
end tell
-- save document 1 given «class dfil»:file outfile, «class
savk»:self contained
close document 1 saving no
end tell
end try
Message was edited by: Steven Prigg