.mov to mpeg4

I am trying to code a script to take my .mov's to mpeg 4 do any of you have anycode for this
this is what i have and it wont work for anything its un nerving me!
-------------------------------------------------------------------
property exportFolder : (path to documents folder as Unicode text) & "Your Folder:"

on run
choose folder with prompt "Change video files from these folders:" with multiple selections allowed
open (result)
end run

on open droppedItems
tell application "QuickTime Player"
activate
close every window
end tell

repeat with thisItem in droppedItems
if (folder of (info for thisItem without size)) is true then
list folder thisItem without invisibles

repeat with thisFile in (result)
tell application "QuickTime Player"
open ((thisItem as Unicode text) & thisFile)

if (can export (front movie) as MPEG4) is true then
try
export front movie to (exportFolder & thisFile & ".mpeg4") as MPEG4
on error errorMsg number errorNum
display dialog "Error (" & errorNum & "):" & return & return & errorMsg buttons "OK" default button 1 with icon caution
end try
else
display dialog "QuickTime Player can't export “" & (thisFile as Unicode text) & "” as mpeg4." buttons "OK" default button 1 with icon caution
end if

close front movie
end tell
end repeat

try
tell application "Finder" to delete thisItem
on error errorMsg number errorNum
display dialog "Error (" & errorNum & "):" & return & return & errorMsg buttons "OK" default button 1 with icon caution
end try
end if
end repeat

quit application "QuickTime Player"
end open