tell application "Finder"
set derOrt to choose folder
-- alle Dateien
set alleDateien to every file of derOrt
-- Schleife, um alle Dateien abzuarbeiten
repeat with nDatei in alleDateien
try
-- Dateinamen holen
set derName to name of nDatei
-- Suffix entfernen
set AppleScript's text item delimiters to ("." & (name extension of nDatei))
set derName to first text item of derName
set AppleScript's text item delimiters to ""
-- Exitenz prüfen, anlegen und/oder verschieben
if not (exists folder derName of derOrt) then
make new folder at derOrt with properties {name:derName}
move nDatei to alias ((derOrt & derName) as string) with replacing
else
move nDatei to alias ((derOrt & derName) as string) with replacing
end if
on error
-- vielleicht ein Dialog?
end try
end repeat
end tell