AppleScript to convert .MOD files to .DV

convertMod2Dv.app

--
-- convertMod2Dv.app
--
-- a simple apple script applet to convert .mod files to .dv files
-- this is an essential step for those of us who own DV video cameras 
-- that use this .mod file format, but would also like to edit those videos
-- in iMove HD or other editing apps.  This applet was developed solely to
-- provide drag-n-drop functionality to the command line tool ffmpeg2.
-- It supports dragging individual files or folders of files, etc.
--

-- PROPERTIES OF THIS APPLET, MODIFY TO SUIT
--
-- just work on mod files, nothing else
property extension_list : {"MOD"}
-- path to ffmpeg
property ffmpeg : "/Applications/MULTIMEDIA/VIDEO/ffmpegx.app/Contents/Resources/ffmpeg2"
-- append to file name when converting to DV
property new_suffix : ".converted.DV"
-- converted movie count
property movie_count : 0


-- APPLET CODE 
--
-- THE FOLLOWING ROUTINE APPEARS ONLY WHEN THE DROPLET IS DOUBLE-CLICKED
on run
	display dialog "convertMod2Dv.app" & return & return & ¬
		"Convert a MOD w/Audio to a DV file" & return & return & ¬
		"To convert .MOD files to .DV for editing, just drag the files or folders of files onto this applet.  The resulting converted .DV movie files will be right along side the originals!" & return & return & "Enjoy!"
end run

-- This droplet processes both files or folders of files dropped onto the applet
on open these_items
	
	repeat with i from 1 to the count of these_items
		set this_item to (item i of these_items)
		set the item_info to info for this_item
		if folder of the item_info is true then
			process_folder(this_item)
		else if (alias of the item_info is false) and ¬
			(the name extension of the item_info is in the extension_list) then
			process_item(this_item)
		end if
	end repeat
	
	display dialog "Converted " & movie_count & " Movie(s)." & return & return & "Enjoy!"
	
end open

-- this sub-routine processes folders
on process_folder(this_folder)
	set these_items to list folder this_folder without invisibles
	repeat with i from 1 to the count of these_items
		set this_item to alias ((this_folder as text) & (item i of these_items))
		set the item_info to info for this_item
		if folder of the item_info is true then
			process_folder(this_item)
		else if (alias of the item_info is false) and ¬
			(the name extension of the item_info is in the extension_list) then
			process_item(this_item)
		end if
	end repeat
end process_folder

-- this sub-routine processes files
on process_item(this_item)
	-- NOTE that the variable this_item is a file reference in alias format
	set full_path to the POSIX path of this_item
	-- !!! MODIFY THESE PARAMETERS TO SUIT if you have other preferences you'd like to use
	do shell script ffmpeg & " -i " & full_path & " -target dv -aspect 16:9 " & full_path & new_suffix
	set movie_count to movie_count + 1
end process_item


on getFileName(thefile)
	set {oldDelims, AppleScript's text item delimiters} to {AppleScript's text item delimiters, {":"}}
	set mytextfilename to last text item of (thefile as text)
	set AppleScript's text item delimiters to oldDelims
	return mytextfilename
end getFileName