alterName;neuerName 
name1;name2 
name3;name4 
usw. 

set _CSV to paragraphs of (read (choose file)) --read csv-file  
set _picPath to choose folder with prompt "Bitte den Ordner mit den Bilder auswählen." 
 
repeat with i from 1 to count _CSV 
	set {TID, text item delimiters} to {text item delimiters, ";"} 
	 
	try 
		set _CsvItem to item i of _CSV 
		set {_oldName, _newName} to {text item 1 of _CsvItem, text item 2 of _CsvItem} 
		do shell script "mv -f " & quoted form of POSIX path of ((_picPath as text) & _oldName) & space & quoted form of POSIX path of ((_picPath as text) & _newName) 
			on error e 
		display dialog e giving up after 10 
	end try 
end repeat 
 
set TID to AppleScript's text item delimiters 

set _CSV to paragraphs of (read (choose file)) --read csv-file   
set _picPath to choose folder with prompt "Bitte den Ordner mit den Bilder auswählen." 
 
repeat with i from 1 to count _CSV 
	set {TID, text item delimiters} to {text item delimiters, ";"} 
	 
	try 
		tell application "Finder" 
			set _CsvItem to item i of _CSV 
			set {_oldName, _newName} to {text item 1 of _CsvItem, text item 2 of _CsvItem} 
			try 
				set name of ((_picPath & _oldName) as alias) to _newName 
			on error e 
				activate 
				display dialog e buttons {"Cancel", "OK"} default button 2 with icon 0 giving up after 5 
			end try 
		end tell 
	end try 
end repeat 
 
set TID to AppleScript's text item delimiters 

set _CSV to paragraphs of (read (choose file)) --read csv-file   
set _picPath to choose folder with prompt "Bitte den Ordner mit den Bilder auswählen." 
 
repeat with i from 1 to count _CSV 
	set {TID, text item delimiters} to {text item delimiters, ";"} 
	 
	try 
		set _CsvItem to item i of _CSV 
		set {_oldName, _newName} to {text item 1 of _CsvItem, text item 2 of _CsvItem} 
		 
		tell application "Finder" to set _comment to comment of alias ((_picPath as text) & _oldName) 
		 
		do shell script "mv -f " & quoted form of POSIX path of ((_picPath as text) & _oldName) & space & quoted form of POSIX path of ((_picPath as text) & _newName) 
		 
		tell application "Finder" to set comment of alias ((_picPath as text) & _newName) to _comment 
		 
	on error e 
		display dialog e giving up after 10 
	end try 
end repeat 
 
set TID to AppleScript's text item delimiters 

--Vorgaben für das Droplet 
property _CSV : {} 
property _oldNames : {} 
property _newNames : {} 
 
--Mit Doppelklick CSV-Datei setzen 
on run 
	set _CSV to paragraphs of (read (choose file with prompt "Bitte die Csv-Datei wählen." without invisibles)) 
	set {TID, text item delimiters} to {text item delimiters, ";"} 
	repeat with j from 1 to count of _CSV 
		set _CsvItem to item j of _CSV 
		set {_oldName, _newName} to {text item 1 of _CsvItem, text item 2 of _CsvItem} 
		set end of _oldNames to _oldName 
		set end of _newNames to _newName 
	end repeat 
	set TID to AppleScript's text item delimiters 
end run 
 
 
--Dateien droppen 
on open _dropped 
	repeat with i from 1 to count of _dropped 
		set _pic to item i of _dropped 
		set {TID, text item delimiters} to {text item delimiters, ":"} 
		set _picName to text item -1 of (_pic as text) 
		set _findName to my searchName(_picName) 
		 
		if _findName is not 0 then 
			try 
				set _picFolder to ((text items 1 thru -2 of (_pic as text)) as text) & ":" 
				tell application "Finder" to set _comment to comment of _pic 
				do shell script "mv -f " & quoted form of POSIX path of _pic & space & quoted form of POSIX path of (_picFolder & (item _findName of _newNames)) 
				tell application "Finder" to set comment of alias (_picFolder & (item _findName of _newNames)) to _comment 
			on error e 
				display dialog e giving up after 5 
			end try 
		end if 
		 
	end repeat 
	set TID to AppleScript's text item delimiters 
end open 
 
 
--Position in Liste finden 
on searchName(_picName) 
	if _oldNames contains _picName then 
		repeat with k from 1 to the count of _oldNames 
			if item k of _oldNames is _picName then return k 
		end repeat 
	else 
		return 0 
	end if 
	 
end searchName