Apple Script: Dateinamen in Metadaten kopieren

[indyjones]

Hallo zusammen,

ich benötige bitte Hilfe um ein Apple Script zu modifizieren:

on open dateiListe 
	tell application "Finder" 
		set zusatzText to (text returned of (display dialog "Geben Sie den gewünschten Zusatz Text ein" default answer "")) 
		repeat with einDatei in dateiListe 
			set dateiName to name of einDatei 
			try 
				set MyScript to ("echo \"" & dateiName as text) & "\" | sed 's/\\.[^.! ]\\{0,5\\}$//g'" 
				set keinExtension to (do shell script MyScript) 
				set comment of einDatei to keinExtension & " " & zusatzText 
			on error e number en 
				[Abfang - Routine] 
				if (name of me) is "Script Editor" then 
					error "Irgendwas ist faul " & e number en 
				end if 
			end try 
		end repeat 
	end tell 
end open

Das Script macht momentan folgendes:

Es kopiert den Dateinamen in das Kommentarfeld (im Infofenster) und fügt noch einen frei eintippbaren Zusatztext ein.

Jetzt ist es leider so, dass aus unerklärlichen Gründen die Informationen im Kommentarfeld oft verloren gehen.

Da ich das Script ausschließlich auf Bilder anwende,
wäre es perfekt, wenn der originale Dateiname in die Metadaten
kopiert werden würde.

Das Sript nutze ich momentan als Programm, auf das im Finder eine oder mehrere Dateien per Drag & Drop draufgezogen werden um es zu starten.

Vielen Dank für jede Hilfe!
VG
Indy