Finder script

Try using:

tell application "Finder"

set the_folder to (choose folder)

repeat

set the_name to items 1 thru 12 of (get name of file 1 of the_folder) as string

if not (exists folder the_name of the_folder) then make new folder at the_folder with properties {name:the_name}

move file 1 of the_folder to folder the_name of the_folder

if (count (get files of the_folder)) is 0 then exit repeat

end repeat

end tell

(195929)

From Dock : Launchpad : Other, open Script Editor. Copy/Paste Niel's script into the Script Editor, and click run.

It will open a folder chooser where you select the folder containing your image files. Once you select the starting folder it will set about creating the individual 12 character folders and moving the associated files into them. When the script finishes, you should see a bunch of new folders and no martian files that did not get placed in their respective namesake folder.

Try using:

tell application "Finder"

set the_folder to (choose folder)

repeat (count (get files of the_folder)) times

set the_string to (get name of file 1 of the_folder)

set the_offset to offset of "_" in (items 4 thru -1 of the_string as string)

set the_name to items 1 thru (the_offset + 2) of the_string as string

if not (exists folder the_name of the_folder) then make new folder at the_folder with properties {name:the_name}

move file 1 of the_folder to folder the_name of the_folder

end repeat

end tell

(195983)

The length of the string can be changed as needed.

(195978)

Niel can assist you with the script logic.