var myLinkNames = app.documents[0].links.everyItem().name; // die Namen aller verknüpften Bilddateien 
var myContent = myLinkNames.join("\r");  
var myFolderName = "~/Desktop/"; 
 
exportTXT(myContent, "Bilder_1.txt");  // Direktexport 
exportTempFrameAsTXT(myContent, "Bilder_2.txt"); // Export über temporären Textrahmen 
 
// Direktexport 
function exportTXT(myData, myFileName){ 
	myCreator = "R*ch";  
	myType = "UTF-8";  
	myPath = myFolderName  + myFileName; 
	myFile = new File( myPath); 
	myFile.open( 'w', myType, myCreator ); 
	myFile.write( myData ); 
	myFile.close(); 
} 
 
// Export über temporären Textrahmen 
function exportTempFrameAsTXT(myData, myFileName) { 
	var myFrame = app.documents[0].textFrames.add(); 
	myFrame.geometricBounds = [0,-100, 150,0]; 
	myFrame.contents = myData; 
	var myFile = File(myFolderName + myFileName);  
	myFrame.parentStory.exportFile(ExportFormat.textType,  myFile); 
	myFrame.remove(); 
} 

tell application "Adobe InDesign CS2" 
	set myFolderName to path to desktop as Unicode text 
	set myTXT_File to "Bilder_3.txt" 
	set myLinks to name of links of active document 
	set oldDelims to AppleScript's text item delimiters 
	set AppleScript's text item delimiters to {return} 
	set myData to myLinks as text 
	set AppleScript's text item delimiters to oldDelims 
	set myFile to (open for access file (myFolderName & myTXT_File) with write permission) 
	set eof myFile to 0 
	write myData to myFile 
	close access myFile 
end tell 

// Direktexport  
function exportTXT(myData, myFileName){  
	myPath = myFolderName + myFileName;  
	var f = new File(myPath); 
	var fileIsOpen = f.open("w"); 
	if (fileIsOpen) { 
		f.encoding = "ISO-10646-UCS-2LE"  
		f.write(myData); 
		f.close(); 
	} 
} 

var myLinkNames = app.documents[0].links.everyItem().name; // die Namen aller verknüpften Bilddateien 
var myContent = myLinkNames.join("\r");  
if ($.os.search(/windows/i) == -1) // Betriebssystem 
	var myContent = cleanupUmlaut(myContent);	 
var myFolderName = "~/Desktop/"; 
 
exportTXT(myContent, "Bilder_1.txt");  // Direktexport 
exportTempFrameAsTXT(myContent, "Bilder_2.txt"); // Export über temporären Textrahmen 
 
// Direktexport 
function exportTXT(myData, myFileName){ 
	myCreator = "R*ch";  
	myType = "UTF-8";  
	myPath = myFolderName  + myFileName; 
	myFile = new File( myPath); 
	myFile.open( 'w', myType, myCreator ); 
	myFile.write( myData ); 
	myFile.close(); 
} 
 
// Export über temporären Textrahmen 
function exportTempFrameAsTXT(myData, myFileName) { 
	var myFrame = app.documents[0].textFrames.add(); 
	myFrame.geometricBounds = [0,-100, 150,0]; 
	myFrame.contents = myData; 
	var myFile = File(myFolderName + myFileName);  
	myFrame.parentStory.exportFile(ExportFormat.textType,  myFile); 
	myFrame.remove(); 
} 
 
function cleanupUmlaut (theString) { 
	return theString.replace( /a\u0308/g, 'ä').replace( /o\u0308/g, 'ö').replace( /u\u0308/g, 'ü').replace( /A\u0308/g, 'Ä').replace( /O\u0308/g, 'Ö').replace( /U\u0308/g, 'Ü') 
} 

var newName = "äöüÄÖÜ.eps"; 
var myLink = app.documents[0].links[0]; 
 
var myNewFilePath = myLink.filePath.split(":"); // Pfad zur Bilddatei als Array 
myNewFilePath.pop(); // alten Dateinamen aus dem Pfad entfernen 
myNewFilePath.push(newName); // neuen Dateinamen hinzufügen 
myNewFilePath = myNewFilePath.join(":"); // Pfad aus Array wiederherstellen 
 
File(myLink.filePath).rename(newName); // Datei umbenennen 
myLink.relink(File(myNewFilePath)); // Link mit der umbenannten Datei verknüpfen 
myLink.update(); // Verknüpfung aktualisieren 

var goodChars = "abcdefghjiklmnopqrsßtuvwz._-ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"; 
var myLink = app.documents[0].links[0];  
var oldName = myLink.name; 
var newName = ""; 
for (var k=0; k<oldName.length; k++) { 
	if (goodChars.match(oldName[k])) { 
		newName = newName + oldName[k]; 
	} 
} 
if (newName != oldName) { 
	// Code zum Umbenennen 
} 

set newName to "äöüÄÖÜ.eps" 
tell application "Adobe InDesign CS2" 
	set myDoc to active document 
	tell myDoc 
		set myLink to item 1 of links 
		set oldName to name of myLink 
		set oldPath to file path of myLink 
		set oldDelimiters to AppleScript's text item delimiters 
		set AppleScript's text item delimiters to ":" 
		set myList to every text item of oldPath 
		set item -1 of myList to newName 
		set newPath to myList as string 
		set AppleScript's text item delimiters to oldDelimiters 
		my renameLink(newName, oldPath) 
		relink myLink to newPath 
		update myLink 
	end tell 
end tell 
 
 
on renameLink(aName, aPath) 
	tell application "Finder" 
		set name of file aPath to aName 
	end tell 
end renameLink 

set newName to "äöüÄÖÜ.eps" 
tell document 1 of application "Adobe InDesign CS2" 
	set myLink to item 1 of links 
	set oldPath to file path of myLink 
	set newPath to (my renameLink(newName, oldPath)) as string 
	relink myLink to newPath 
	update myLink 
end tell 
 
on renameLink(aName, aPath) 
	tell application "Finder" 
		set filePath to aPath as alias 
		set name of file aPath to aName 
	end tell 
	return filePath 
end renameLink