Ich verwende jetzt die Lösung mit AppleS*****:
set the_folder to choose folder
tell application "Finder"
set the_list to files of the_folder
repeat with i in the_list
try
set theName to name of i
set n to text -5 thru 1 of theName
set nf to make new folder at the_folder with properties {name:n}
move i to nf
end try
end repeat
end tell
|