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