Mede8er MED600X3D / MED800X3D / MED1000X3D - El Dune Killer

Iniciado por theplant

Pues me haces un gran favor con el script, ahora que tengo que copiar otro disco duro con 1TB andaba agobiado pensando en la cantidad de carpetas que tenía que crear.

Te copio y pego el mensaje original:

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