Need to split Quicktime movie files

Question

Hi Group!
I have a bunch of movie files (MPEG4) that I need to split.
I'm thinking a workflow like this:
- open movie in qt pro
- create out-point at the 65 minute mark
- cut it
- create new movie
- paste it
- rename it to oldname_"Part1"
- save it
- close it without saving
- rename remaining file to oldname_"Part2"
- save it
- close it without saving
So far I have the split/cut/paste part working, but I can't figure
out how to name a open movie file in Quicktime.
(I'm new to all this, as you can tell, and the Library in the Script Editor
for the Quicktime components did not really explain a lot to me).
Any help appreciated!
Thanks!

Answer 1

Try something like this…
click here to open this script in your editor<pre style="font-family: 'Monaco', 'Courier New', Courier, monospace; overflow:auto; color: #222; background: #DDD; padding: 0.2em; font-size: 10px; width:400px">set save_folder to path to movies folder as Unicode text
tell application "QuickTime Player"
set my_movie to the front movie
set my_file to save_folder & my suffixwith_extension(mymovie's name, "_Part2")
save my_movie in my_file -- use for a reference to the original
-- save self contained my_movie in my_file -- use for a portable file
end tell
to suffixwith_extension(filename, suffix)
if file_name contains "." then
tell (a reference to AppleScript's text item delimiters)
set {tid, contents} to {contents, "."}
set file_name to file_name's text items
tell (a reference to file_name's item -2) to set contents to contents & suffix
set {file_name, contents} to {file_name as Unicode text, tid}
end tell
else
set file_name to file_name & suffix
end if
return file_name
end suffixwithextension</pre>