Using AppleScript to sort files Into Specified Folders based on Extension

Question

Hi All!
Here is what I am trying to figure out. I would love some help with this script if anyone can lend a helping hand. I am currently using Hazel to do this but I think AppleScript will be alot more effective.
Situation:
- I have a folder with 4 different file types inside - the extensions are (.cop, .cof, .cos, .cr2)
- These files need to be organized in this folder structure  Captureone > Cache > Proxies
                                                                                                              > Settings50
- The .cop & .cof files both need to be put in the "Proxies" folder
- The .cos needs to be put in the "Settings50" folder
- The .cr2 can stay where it is.
I'm already using an AppleScript application where it automatically creates the folder structure in the current finder location, which works great. I use a program named Hazel to sort the files automatically into the folders where they need to go. Unfortunately all my computers at work don't have Hazel and I would like help to make a script. Any thoughts to add to my existing script?
#  define a list of folders - items will need to be quoted if they contain spaces, etc.
property theFolders : {"Captureone/Cache/Proxies", "Captureone/Settings50"} -- can also nest, e.g. "Inside/One"
try
          tell application "Finder" to set targetFolder to (target of the front window) as alias
on error -- no window
          set targetFolder to (choose folder)
end try
# build a parameter string from the folder list
set {tempTID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, space}
set {theFolders, AppleScript's text item delimiters} to {theFolders as text, tempTID}
do shell script "cd " & quoted form of POSIX path of targetFolder & "; mkdir -p " & theFolders

Answer 1

Hi,
applescript_problems wrote:
for example:
master folder name: 1
sub folder path: 1>2>3>4>5
insdie folder 5 theirs 3 folders: 5a, 5b, 5c
i want to name my files like so: "name_5a" "name_5b" "name_5c
i want the scrip to pick up all the files that ends with the name "_5a" and place them in folder 5a
I presume that the files are in the master folder not in the subFolders, that the files has an name extension.
This script take the first two characters after the last underscore.
It will move the file in the subfolder, according to the two characters found.
set targetFolder to (POSIX file "") as alias --<-- drop the master folder between the double quotes
tell application "Finder"
      repeat with tFile in (get files of targetFolder)
            set tName to name of tFile
            set subname to my getChar_1_2AfterLastUnderscore(tName)
            -- example : subname = "5c" -->  folder "5c" of folder "5" of targetFolder
            if subname is not "" then
                  tell folder subname of folder (text 1 of subname) of folder targetFolder
                        if exists then move tFile to it -- if exists this folder then move this file
                  end tell
            end if
      end repeat
end tell
on getChar_1_2AfterLastUnderscore(t)
      if "_" is in t then try
            set oTID to text item delimiters
            set text item delimiters to "_"
            set t to text 1 thru 2 of last text item of t
            set text item delimiters to oTID
            return t
      on error
            set text item delimiters to oTID
      end try
      return ""
end getChar_1_2AfterLastUnderscore
To get the exact path of the master folder :
Drag/drop the folder between the double quotes in the first line of the script.