//fontsPackage.jsx  
//DESCRIPTION: Kopiert die im Dokument verwendeten Schriften in einen auszuwählenden Ordner  
  
var d = app.activeDocument; 
var f = Folder.selectDialog( 'Verzeichnis für die Ablage der Schriften',  new Folder() ); 
if ( f == null ) exit(); 
 
if (f.toString() == d.filePath) 
{ 
	var f  = new Folder (f + '/Fonts'); 
	f.create(); 
} 
d.packageForPrint( f, true, false, false, false, true, false,  'Fonts', false ); 
File( f + '/' + d.name ).remove(); 
var fName = d.name.replace( /.indd/g, '.fonts' ); 
var renF = Folder( f + '/Fonts' ).rename( fName ); 
if (renF == false) // Fonts-Ordner mit Dateinamen bereits vorhanden 
{ 
	var r  = confirm ( 'Achtung!\rAlten Fonts-Ordner \"' + fName + '\" löschen?'); 
	if (r == false) 
		exit(); 
	// Löschen der Fonts im alten Fonts-Ordner 
	var s = Folder( f + '/' + fName).getFiles(); 
	for ( i = s.length-1; i >= 0; i--) 
		s[i].remove(); 
	// Löschen des alten Fonts-Ordners 
	Folder( f + '/' + fName).remove(); 
	var renF = Folder( f + '/Fonts' ).rename( fName ); 
}