on open 
	tell application "Finder" 
		set input to selection 
		 
		repeat with x in input 
			set creationDate to creation date of x 
			set modDate to modification date of x 
			 
			set fileInfo to (info for of file (item 1 of input as string))        --- scheint hier hängen zu bleiben 
			set {fileName, nExt} to {name of fileInfo, name extension of fileInfo} 
			if nExt is not missing value then 
				set origName to (text 1 thru -((count of nExt) + 2)) of fileName 
			end if 
			 
			set cD to creation date of x 
			set the_year to year of (cD) as number 
			set the_month to month of (cD) as number 
			set the_day to day of (cD) as number 
			set ts to time string of cD 
			set c to offset of ":" in ts 
			set h to text -2 thru -1 of ("0" & (text 1 thru (c - 1) of ts)) 
			set m to text (c + 1) thru (c + 2) of ts 
			set s to text (c + 4) thru (c + 5) of ts 
			set Zeit to (h & "'" & m & "'" & s) 
			set neuName to origName & "___" & ((the_day & "." & the_month & "." & the_year & "___" & Zeit) as string) 
			set name of x to neuName & "." & nExt 
		end repeat 
	end tell 
end open 

error "«class docf» \"FPRO4223 Kopie.JPG\" of «class cfol» \"Desktop\" of «class cfol» \"mini\" of «class cfol» \"Users\"  
of «class sdsk» of application \"Finder\" kann nicht in Typ string umgewandelt werden." number -1700 from «class docf»  
"FPRO4223 Kopie.JPG" of «class cfol» "Desktop" of «class cfol» "mini" of «class cfol» "Users" of «class sdsk» to string