Filnamn för film i QuickTime genom Applescript

Jag har aldrig tidigare använt applescript men skulle vilja göra ett script som kan koda om flera filmer (som jag tagit med digitalkameran) samtidigt till h264 för att spara plats. Jag hade tänkt att scriptet skulle ta alla öppna filmer i QuickTime och lägga till ".mov" på det befintliga filnamnet. Problemet är att jag inte kan få fram filnamnet för en film. Jag har tagit ett befintligt script från Apple och modifierat det. Så här ser scriptet ut nu:

tell application "QuickTime Player"
	activate
	
	try
		if not (exists document 1) then error "No movies are open."
		
		stop every document
		
		-- loop through all the open movies
		repeat with oneDoc in documents
			
			-- get the name of the movie
			set the movie_file to the "" & (file 1 of oneDoc) & ".mov"
			-- check to see if the opened movie can be exported
			if (can export oneDoc as QuickTime movie) is true then
				-- export the movie as QuickTime movie
				export oneDoc to (file 1 of oneDoc) as QuickTime movie using most recent settings
				-- close the movie
				close oneDoc
			else
				error "This movie cannot be exported as a QuickTime movie."
			end if
			
		end repeat
	on error error_message number error_number
		if the error_number is not -128 then
			beep
			display dialog error_message buttons {"Cancel"} default button 1
		end if
	end try
end tell

Det är raden set the movie_file to the "" & (file 1 of oneDoc) & ".mov" som strular för jag får felmeddelandet "Can't make file 1 of item 1 of every document of application "QuickTime Player" into type string".

Felet ligger nog i konverteringen av (file 1 of oneDoc) till en sträng. Hur ska jag göra för att få det att funka?

Automator har inga funktioner för att exportera filmer i andra format.

Tyvärr, då säger den "Can't make name of file 1 of... into type reference".

Jag läste på en sida att man skulle kunna köra följande lilla script för att få fram alla filer som en film består av men det funkar inte det heller.

tell application "QuickTime Player"
	files of movie 1
end tell

Det funkar att exportera när jag ändrar raden till
set the movie_file to the "" & (name of oneDoc) & ".mov"
då hamnar de konverterade filerna i / (roten). Däremot har jag upptäckt ett nytt fel, när den första filmen är klar och den ska gå på nästa får jag NSRecieverEvaluationScriptError: 4.

Någonting är det som inte funkar som det ska här. Ta en titt på detta enkla skriptet:

tell application "QuickTime Player"
	
	-- loop through all the open movies
	repeat with oneDoc in documents
		close oneDoc
	end repeat
	
end tell

Det ska loopa igenom alla öppna filmer och helt enkelt stänga dem en efter en. När jag öppnar 6 filmer samtidigt och kör scriptet så stängs tre av fönstren och sen får jag felmeddelandet "NSRecieverEvaluationScriptError: 4".

AHA!
Nu kom jag på det. När jag har stängt en film ändras listan med öppna filmer så när den försöker hoppa till den fjärde filmen så finns det bara tre filmer kvar i listan och man får ett fult index-out-of-bounds-liknande error.

Annars är det bara att byta ut "oneDoc" mot "document 1" så arbetar man alltid med det första dokumentet i listan.

Nu har jag ett script som fungerar men jag fick hårdkoda var filmerna skulle lägga sig (eftersom jag inte fick fram var originalfilmerna låg). Raden ser ut som följer
set the movie_file to the ":Users:Shared:Movies:" & (name of oneDoc) & ".mov"
men det tog ett tag innan jag hittade att Applescript använder : istället för / i sökvägar.