But anyway, it´s not too hard to do it with AppleScript.
property theOrigin : AppleScript's text item delimiters
set theFolderPath to choose folder with prompt "Select a Folder with Files…"
tell application "Finder"
set theFileList to files in theFolderPath
end tell
repeat with thisItem in theFileList
set theFilePath to thisItem as text
set infoForThisItem to info for file theFilePath
set theFileName to name of infoForThisItem
set theFileExtension to name extension of infoForThisItem
set theFileExtension to "." & name extension of infoForThisItem
set theNewFolderName to replaceTextInAString(theFileName, theFileExtension, "")
tell application "Finder"
set theNewFolder to (make new folder at theFolderPath with properties {name:theNewFolderName})
move thisItem to theNewFolder
end tell
end repeat
(* Replaces in Text theTextToChng the string search_string by replacement_string *)
on replaceTextInAString(theTextToChng, search_string, replacement_string) --
set AppleScript's text item delimiters to the search_string
set the item_list to every text item of theTextToChng
set AppleScript's text item delimiters to the replacement_string
set theTextToChng to the item_list as string
set AppleScript's text item delimiters to theOrigin
return theTextToChng
end replaceTextInAString