QT Player "Save Reference Movie" using descriptors parameters

Anyone have a clue or, better yet, any working code?

	set movieDescriptors to {movieURL:moviePath, dataRate:currentDataRate, platform:desktop}
	save reference movie to thisfile using descriptors movieDescriptors with replacing

Parameter errors with all variations of these three Dictionary-listed parameters that I’ve tried.

And get this… No Google results for ‘applescript “using descriptors”’
Well, ok, there’s one that shows code that throws parameter errors.

Right…

Seems broken.

This code works for me. Drop a set of clips on this and it will make a similarly named movie file at the same location for each one.


on open (droppedfiles)
	repeat with thisfile in droppedfiles
		set fail to false
		set thisfile to thisfile as alias
		tell application "Finder"
			
			set thisfileName to name of thisfile as text
			set AppleScript's text item delimiters to "."
			set thisfileName to text items 1 thru -2 of thisfileName
			set AppleScript's text item delimiters to ""
			set thisfileName to thisfileName as text
			set thisfileName to thisfileName & ".mov"
			set TF to container of thisfile
			try
				set outf to make new file at TF with properties {name:thisfileName}
			on error
				set outf to (TF as text) & thisfileName
			end try
			try
				set outf to outf as alias
				set outf to outf as «class furl»
			on error e number n
				set fail to true
				display dialog e
			end try
		end tell
		if not fail then
			tell application "QuickTime Player"
				open thisfile
				repeat while load state of document 1 is not complete
					delay 2
				end repeat
				save document 1 in outf as reference with replacing
				close document 1
			end tell
		end if
	end repeat
end open