applescript help move files after converting

set the topLevelFolder to choose folder with prompt "Source Folder?" as string
tell application "Finder"
	set AllFiles to name of every file of folder topLevelFolder as list
end tell

set myPath to choose folder with prompt "Destination folder?" as string

tell application "Finder" to set fileName to AllFiles

tell application "Adobe Illustrator 10"
	repeat with i in AllFiles
		set OpenThisDoc to ((topLevelFolder as string) & i) as alias
		open OpenThisDoc
		if (count of documents) > 0 then
			set myInteractLevel to user interaction level
			set user interaction level to never interact
			set myPath to file path of document 1 as string
			if myPath ends with ".tif" then
				try
					repeat with myPage from 1 to 1
						open alias myPath with options {page:myPage}
						set myNewPath to myPath
						repeat with myCharNum from (count of characters of myNewPath) to 1 by -1
							if character myCharNum of myNewPath = "." then
								if myCharNum > (count of characters of myNewPath) - 5 then set myNewPath to (text of characters 1 thru (myCharNum - 1) of myNewPath) as string
								exit repeat
							end if
						end repeat
						set myNewPath to myNewPath & ".eps"
						save document 1 in file myPath as eps
						close document 1 saving no
					end repeat
				end try
			end if
			set user interaction level to myInteractLevel
		end if
	end repeat
end tell