global tmpDesktopPath 
------------------------------------------------------------------------------------------------------------------------------------- 
on Initialize() 
	set my text item delimiters to "" 
	set tmpDesktopPath to (path to desktop) as string 
end Initialize 
 
on Finalize() 
	with timeout of 14400 seconds -- 4 Stunden 
		activate 
		display alert "Fertig" message "Objekt(e) wurde(n) verarbeitet." 
	end timeout 
end Finalize 
 
on ProcessAFileOrFolder(theFile) 
	if (theFile as string) ends with ":" then 
		ScanAFolder(theFile) 
	else 
		ProcessAFile(theFile) 
	end if 
end ProcessAFileOrFolder 
 
on ScanAFolder(theFolder) 
	set fileNames to list folder theFolder without invisibles 
	repeat with aFile in fileNames 
		set theFile to (theFolder as string) & contents of aFile 
		ProcessAFileOrFolder(alias theFile) 
	end repeat 
end ScanAFolder 
 
on open of filesList 
	my Initialize() 
	repeat with aFile in filesList 
		ProcessAFileOrFolder(contents of aFile) 
	end repeat 
	my Finalize() 
end open 
 
on run 
	activate 
	display alert "ACHTUNG!" message "Läuft nur als Droplet. Bitte Objekt(e) auf das Script ziehen." as warning 
end run 
------------------------------------------------------------------------------------------------------------------------------------- 
on ProcessAFile(aFile) 
	tell application "Finder" to set tmpName to name of aFile as string 
	set saveFile to my tmpDesktopPath & tmpName 
	set aLogo to aFile as string 
	tell application "Adobe Illustrator" 
		close every document saving no 
		open file aLogo without dialogs 
		tell front document 
			save in saveFile as eps with options {compatibility:Illustrator 8, compatible gradient printing:true, PostScript:level 3, preview:color Macintosh} 
			close saving no 
		end tell 
	end tell 
end ProcessAFile 
-------------------------------------------------------------------------------------------------------------------------------------