tell application "QuickTime Player" set theFile to choose file name with prompt "Where to save?" default location (path to desktop folder from user domain) default name "Untitled.mov" save self contained document 1 in theFile end tell
スクリプトエディタにコピペして、実行ボタンを押すのよ。 Close document 1 saving noとかしたほうがいいのかもしらん。 わかんなかったら、後は別スレで。