on open these_items
tell application "Finder" to set sorted_items ¬
to sort these_items by name
repeat with i from 1 to the count of sorted_items
set this_item to (item i of sorted_items)
tell application "QuickTime Player"
if i is equal to 1 then
make new movie
end if
open this_item
tell movie 1
rewind
select all
copy
select none
end tell
close movie 1 saving no
tell movie 1
add
select none
end tell
end tell
end repeat
end open
It's written to be an applet, so just save it as an application, then drop a bunch of QuickTime movies onto it. The script will then assemble the parts into one big movie. I use this for movies with part # in the name, for import into Front Row.
[robg adds: I haven't tested this one.]

