Applescript for quicktime player 7 in 10.6

Question

I've been using an applescript that can take a bunch of movie clips and merge them into a single file. (see script below) now with 10.6 and quicktime x. this script no longer works. Can anyone help me to get quicktime player 7 to launch and start doing it's trick. any help most appreciated.
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 7"
                              if i is equal to 1 then
  make new document
                              end if
  open this_item
                              tell document 1
  rewind
  select all
                                        copy
  select none
                              end tell
  close document 1 saving no
                              tell document 1
                                        add
  select none
                              end tell
                    end tell
          end repeat
end open

Answer 1

The scripts below work for me, using Mac OS 10.4.11 and QuickTime Pro v. 7.6.4.
Note that my version of AppleScript (v. 2.1.1) doesn't recognize application QuickTime Player 7. Hence, application "QuickTime Player" was used throughout. Your needs may vary; if you can or must use the "7" by all means do so.
The first is based on the script Craig Williams posted in this thread: http://macscripter.net/viewtopic.php?id=31674 (in post #6). I modified the script a bit so that a new file is created on the front end, and the merged file gets written to it once the script finishes:
set file_name to text returned of (display dialog "A new merged QuickTime file will be created on the desktop. Please choose a name:" default answer "Enter Name")
tell application "Finder"
  try
  set make_file to make new file at (path to desktop folder as string) with properties {name:file_name & ".mov"}
  set new_file to make_file as alias
  on error
                    display dialog "A file with the name " & "“" & file_name & "”" & " already exists on the desktop. Please try again." buttons {"OK"} default button 1 cancel button 1 with icon stop
  end try
end tell
set theCount to 1
set theFolder to choose folder with prompt "Choose the folder with QuickTime files you want to join together."
tell application "Finder"
  set theFiles to every file of folder theFolder
  set totalFiles to (count the theFiles)
  repeat with i from 1 to totalFiles --to 1 by -1
  set thisfile to item i of theFiles as alias
                    --QT Pro
  my mergeFilesUsingQT(thisfile, theCount, totalFiles)
  set theCount to theCount + 1
  end repeat
end tell
delay 1
tell application "QuickTime Player"
  tell document 1
  rewind
                    delay 0.5
  save as self contained in new_file
  close
  end tell
end tell
on mergeFilesUsingQT(thisfile, theCount, totalFiles)
          tell application "QuickTime Player"
  activate
                    --the first file only gets copied
                    if theCount = 1 then
  open thisfile
                              delay 0.5
  tell document 1
  select all
                                        copy
  end tell
  close document 1 saving no
  else
                              --these files get the previous file added to it and
                              --then it is copied to be added to the next file
  open thisfile
                              delay 1
  tell document 1
  set x to get duration
  set current time to x
  paste
  select all
                                        copy
  end tell
  end if
  end tell
end mergeFilesUsingQT
My own version, below, creates a new file and then opens a temporary QuickTime document to which each file is copied in turn. Once copying is complete, the temporary file is written to the file that was created at the beginning of the script:
set file_name to text returned of (display dialog "A new merged QuickTime file will be created on the desktop. Please choose a name:" default answer "Enter Name")
tell application "Finder"
  try
  set make_file to make new file at (path to desktop folder as string) with properties {name:file_name & ".mov"}
  set new_file to make_file as alias
  on error
                    display dialog "A file with the name " & "“" & file_name & "”" & " already exists on the desktop. Please try again." buttons {"OK"} default button 1 cancel button 1 with icon stop
  end try
end tell
tell application "QuickTime Player"
  set temp_doc to make new document
end tell
set fol to choose folder with prompt "Choose the folder containing QuickTime files to be merged:"
tell application "Finder"
  set the_files to every file of folder fol
  repeat with i from 1 to count of the_files
  set a_file to item i of the_files
  my merge_files(a_file, temp_doc)
  end repeat
end tell
delay 1
tell application "QuickTime Player"
  tell document 1
  select none
  save as self contained in new_file
  close
  end tell
end tell
on merge_files(a_file, temp_doc)
          tell application "QuickTime Player"
  activate
  make new document
  open a_file
  delay 1
  tell document 1
  set t to get duration
  set current time to t
  select all
  copy
  close
  end tell
  activate document temp_doc
  delay 1
  tell document 1
  paste
  end tell
  end tell
end merge_files
Hope this helps. Good luck.