Color label of folders in applescript

Question

Hi, I have a script to create job folders, the folders within are split into 2 sections and I want to colour label the folders in the script.
One set is for artwork and contains the start 'AW' and one set is for creative and contains the start 'CR'. I'd like all the artwork folders to be green and all the creative to be yellow, can someone help me and amend the script below to achieve this?
Thanks in advance.
-- make a folder structure
set ThePath to path to desktop -- the location to make the folder structure
set textYear to text -2 through -1 of ((current date)'s year as text)
set jobNum to text returned of (display dialog "Please enter Job Number:" default answer {textYear & "xxx"})
set JobName to text returned of (display dialog "Please enter Job Name:" default answer "Job Name")
set JobNumName to jobNum & "_" & JobName
MakeFolderStructure out of {JobNumName, {jobNum & "_" & "AW_Elements", {jobNum & "_" & "AW_Downloads", jobNum & "_" & "AW_Links", {"eps-tiff", "jpg", "psd", "ai"}, jobNum & "_" & "AW_PDF", {"Hires", "Lores"}, jobNum & "_" & "AW_Photography", jobNum & "_" & "AW_Presenters", jobNum & "_" & "AW_Resource", jobNum & "_" & "AW_Gone_to_Print"}, jobNum & "_" & "CR_Elements", {jobNum & "_" & "CR_Presenters", jobNum & "_" & "CR_Downloads", {jobNum & "_" & "Bought", jobNum & "_" & "Reference"}, jobNum & "_" & "CR_Photography", jobNum & "_" & "CR_Resource", jobNum & "_" & "CR_Scamps", jobNum & "_" & "CR_Copy", jobNum & "_" & "CR_Working", {jobNum & "_" & "illustrator", jobNum & "_" & "indesign", jobNum & "_" & "photoshop"}}}} at ThePath
to MakeFolderStructure out of SomeItem at SomeFolder
make the folder structure defined in SomeItem at SomeFolder
SomeList defines the structure:
nested list items create folders in the previous text item - {"A", {"B", {"C"}}} = /A/B/C
empty text items will create untitled folders
parameters - SomeItem [mixed]: the folder structure
SomeFolder [alias]: the destination folder
returns nothing
          set ParentFolder to SomeFolder
          if class of SomeItem is list then
                    repeat with AnItem in SomeItem
                              if class of AnItem is list then -- add subfolder(s)
  MakeFolderStructure out of AnItem at SomeFolder
                              else -- add a new child folder at the current parent
                                        tell application "Finder" to make new folder at ParentFolder with properties {name:AnItem}
                                        set SomeFolder to the result as alias
                              end if
                    end repeat
          else -- add a new (potential) parent folder
                    tell application "Finder" to make new folder at SomeFolder with properties {name:AnItem}
                    set ParentFolder to the result as alias
          end if
end MakeFolderStructure

Answer 1

you added the code incorrectly in the other thread.  Your handler should look like this:
to MakeFolderStructure out of SomeItem at SomeFolder
          set ParentFolder to SomeFolder
          if class of SomeItem is list then
                    repeat with AnItem in SomeItem
                              if class of AnItem is list then -- add subfolder(s)
                                        MakeFolderStructure out of AnItem at SomeFolder
                              else -- add a new child folder at the current parent
                                        tell application "Finder"
                                                  make new folder at ParentFolder with properties {name:AnItem}
                                                  set NewFolder to the result as alias
                                                  if name of NewFolder begins with "CR" then
                                                            set label index of NewFolder to 3
                                                  else if name of NewFolder begins with "AW" then
                                                            set label index of NewFolder to 6
                                                  end if
                                        end tell
                              end if
                    end repeat
          else -- add a new (potential) parent folder
                    tell application "Finder" to make new folder at SomeFolder with properties {name:AnItem}
                    set ParentFolder to the result as alias
          end if
end MakeFolderStructure
Note that I changed SomeFolder to NewFolder in the Finder block. SomeFolder is not used after that line, but it is used earlier, and using a new variable is less confusing.