MAC OSX. Script para crear una carpeta por fichero, y mover estos ha dicha carpeta.
Funcionamiento. Abrir Editor Apple Script, pegas el Script. Abrir el Finder, SELECCIONAR (Marcar en Azul) la carpeta que contienen los ficheros, y ejecutar el Script.

tell application "Finder"

set selected to selection

set current_folder to item 1 of selected

set mlist to every file of current_folder

set x to mlist

repeat with i from 1 to the count of x

set this_file to item i of x

if i is not 1 then

set previous_file to item (i - 1) of x

set prev_ext to cur_ext

set prev_name to new_name

else

set prev_name to ""

end if

set cur_ext to name extension of this_file

set new_name to text 1 thru -((length of cur_ext) + 2) of (name of this_file as text)

if new_name is not equal to prev_name then

set new_folder to make new folder with properties {name:new_name} at current_folder

move this_file to new_folder

else

move this_file to new_folder

end if

end repeat

end tell