Applescript create folder from filename and move file stopped working

Question

Hi,
For a while I've used this script but after upgrade and a new machine it stopped working.
I have  Mac OS 10.8.5.
This is what I have.
Images (folder)
111111_00.jpg
111111_01.png
222222_01.jpg
222222_02.png
222222_03.gif
I'd like to be able to create a new folder for each "group of files" (new folder 111111, new folder 222222) and move the appropriate files into each of them.
The filenames are always built by 6 digits underscore and 2 digits. Can be whatever filetype. (123456_01.jpg)
I have a script that used to work just fine but now it just creates one folder and then freezes.
This is the script that doesn't work.
set chosen_folder to (choose folder)
tell (a reference to my text item delimiters) to set {old_delim, contents} to {contents, "_"}
tell application "Finder"
    try
        set file_list to files of chosen_folder
    on error
        set file_list to {}
    end try
    repeat with this_file in file_list
        set folder_name to name of this_file
        if folder_name contains "." then set folder_name to ((text items 1 thru -2 of folder_name) as string)
        set new_folder to ((chosen_folder as string) & folder_name & ":")
        try
            get new_folder as alias
        on error
            make new folder at chosen_folder with properties {name:folder_name}
        end try
        move this_file to folder new_folder without replacing
    end repeat
end tell
set my text item delimiters to old_delim
I know that there are many who can do this easy as pie, but if you can find it in your hearts to help me it would be much appreciated.
K

Answer 1

function createFolder(file) {
  var parentFolder = file.parent;
  var saveFolder = new Folder( parentFolder + '/' + file.name.substring( 0, 8 ) );
  if( !saveFolder.exists ) saveFolder.create();
  var saveFile = new File( saveFolder + '/' + file.name);
  if( file.copy( saveFile ) ) file.remove();
function main() {
   var folder = new Folder("~/Desktop/images");
   var files = folder.getFiles();
   for (var i = 0; i < files.length; i++) {
     var f = files[i];
     if (f instanceof File) {
      createFolder(f);
main();
Something like that should work.