set myFolder to choose folder with prompt "Wo soll gesucht werden? Bitte Volume oder Ordner wählen." 
 
set tid to AppleScript's text item delimiters 
set AppleScript's text item delimiters to ":" 
 
tell application "Adobe InDesign CS3" 
	set myGraphicFilePath to (file path of (item link of (item 1 of all graphics of (item 1 of selection))) as text) 
end tell 
 
set myGraphicName to text item -1 of myGraphicFilePath 
set myGraphicFilePath to quoted form of POSIX path of myGraphicFilePath 
 
 
set AppleScript's text item delimiters to return 
set PathToAllFiles to every text item of (do shell script "mdfind -onlyin '" & quoted form of POSIX path of myFolder & "'" & space & " -name '" & myGraphicName & "'") 
 
 
 
set PathToAllFiles to my cleanList(myGraphicName, PathToAllFiles) 
 
repeat with i from 1 to count of PathToAllFiles 
	set theItem to quoted form of (item i of PathToAllFiles) 
	if myGraphicFilePath is equal to theItem then 
	else 
		if button returned of (display dialog theItem with title "Diese Datei überschreiben?" buttons {"OK", "Cancel", "Weiter"}) is "OK" then 
			do shell script "cp -f " & myGraphicFilePath & space & theItem 
		end if 
	end if 
end repeat 
 
set AppleScript's text item delimiters to tid 
 
on cleanList(fileName, listOfFilePaths) 
	set myCleanList to {} 
	set AppleScript's text item delimiters to "/" 
	repeat with p from 1 to count of listOfFilePaths 
		set aName to (text item -1 of (item p of listOfFilePaths)) 
		if aName is equal to fileName then set end of myCleanList to (item p of listOfFilePaths) 
	end repeat 
	return myCleanList 
end cleanList