Quicktime Export Droplet

Question

I am trying to make an Applescript droplet that will use Quicktime Player to export a dv stream using the current settings. The following script will compile, but after the file opens in Quicktime Player nothing happens. Can someone tell me why this isn't working and maybe show me some code that would correct my problem? Thanks.
on open item_list
repeat with i from 1 to number of items in the item_list
set this_item to item i of the item_list
set this_info to info for this_item
set the current_name to the name of this_info
set this_name to (current_name & ".dv")
tell application "QuickTime Player"
open this_item
export this_item to this_name as DV stream using most recent settings
end tell
end repeat
end open
John Mosby

Answer 1

on run -- User double clicked on applet.
display dialog "Drag items onto applet for processing." buttons {"OK"} default button "OK" giving up after 3
end run
on open tItems -- Obtain list of dragged on items.
repeat with i in tItems -- Cycle through the list of dragged on items.
try -- Capture any unexpected AppleScript errors.
tell application "QuickTime Player" -- Use 'QuickTime Player' AppleScript commands.
open i -- Open movie file.
-- create a DV Stream file, with extension '.dv', and save at root level.
export (document 1) to (((name of (info for i)) & ".dv")) as DV stream using most recent settings with replacing
close document 1 -- Close movie window.
end tell
end try
end repeat
end open