【WILLCOM】AIR-EDGE/AIR-EDGE PHONE for Mac 4x

tell application "QuickTime Player"
activate
try
if not (exists movie 1) then error "No movies are open."
stop every movie
-- get the name of the movie
set the movie_name to the name of movie 1
-- check to see if the opened movie can be exported
if (can export movie 1 as ThreeGPP) is true then
-- prompt the user for a name and location
set the new_file to choose file name with prompt "Enter a name and choose a location for the new file:" default name movie_name
-- export the movie as ThreeGPP
export movie 1 to new_file as ThreeGPP using default settings
-- close the movie
close movie 1
else
error "This movie cannot be exported as a ThreeGPP."
end if
on error error_message number error_number
if the error_number is not -128 then
beep
display dialog error_message buttons {"Cancel"} default button 1
end if
end try
end tell