//aktuelles Dokument  
var currentDocument=app.activeDocument;  
  
//Neuer Basisordner erzeugen  
var baseFolder = new Folder("/c/Hier_neuer_Basis_Pfad");  
if(!baseFolder.exists){  
	baseFolder.create();  
}  
				  
for(j=0;j < currentDocument.links.length; j++){ // durchlaufe alle Links im Dokument  
	var aLink = currentDocument.links[j];	  
				  
	if(aLink.status==LinkStatus.NORMAL){ //Verknüpfung stimmt  
		if(aLink.linkType=="Adobe Portable Document Format (PDF)"){  
			var f = new File(aLink.filePath);  
			//Unterordner erzeugen  
			var subfolderName = f.path.substring(f.path.lastIndexOf("/")+1, f.path.length);  
			var subfolder = new Folder(baseFolder+"/"+subfolderName);  
			if(!subfolder.exists){  
				subfolder.create();  
			}  
			  
			var newFilename = baseFolder+"/"+ subfolderName +"/"+f.name;  
			var newFile = new File(baseFolder+"/"+ subfolderName +"/"+f.name); 
			if(!newFile.exists){ 
				f.copy(newFilename);  
				aLink.relink(newFile);   
				f.remove();  
			} 
		}  
	}  
}  
  
currentDocument.links.everyItem().update(); 

rename()  
 
fileObj.rename (newName)  
newName The new file name, with no path.  
 
Renames the associated file. Does not resolve aliases, but renames the referenced alias or shortcut  
file itself.  
 
Returns true on success.