ActivateFonts Code

-- Copyright InDesignScript.de
-- Stefan Rakete
-- www.indesignscript.de
 
-- Install Fonts für Objekt XYZ
 
 
property targetPath : "Macintosh HD:Applications:Adobe InDesign CS2:Fonts"
-- Zielordner anpassen
 
set user_name_short to system attribute "USER"
set sourcePath to "Macintosh HD:Users:" & user_name_short & ":Dokumente:Fonts:Objekt XYZ"
 
tell application "Finder"
	
	--Delete all Alias Fonts in the InDesign Fonts folder
	delete items in folder targetPath
	
	
	if not (exists targetPath & ":Objekt XYZ") then
		
		make new alias to sourcePath at folder targetPath
		
	end if
end tell