Problem with existing script, can't get text of item

Question

I'm taking an earlier script and condensing it so that it will only work from one SELECTED folder. I thought it would be simple but i seam to be running into a few issues
This is the error I get
Result:
error "Can’t get last text item of alias \"Images:2012-2013:WK21:Freedom:Freedom_WK21_PSD:\"." number -1728 from last text item of alias "Images:2012-2013:WK21:Freedom:Freedom_WK21_PSD:"
property type_list : {"8BPS"}
property extension_list : {"psd"}
script o
          property theseNames : {}
end script
-- empty log file
do shell script "echo  'Files not processed in Photoshop :'  > ~/Desktop/LogPhotoshopError.txt"
set noError to true
--at the beginning of the script, ask whether to replace or skip existing files? to apply to all?
--use the result for the if file exists?
display dialog "Should I replace or skip exisiting files?" buttons {"Replace", "Skip (Faster)"} default button 2 with icon 1
set skipFiles to (button returned of the result) is "Skip (Faster)"
--Below is what I removed
--set dtF to paragraphs of (do shell script "ls -F ~/Desktop | grep '/' | cut -d'/' -f1")
--set tc to (count dtF)
--repeat with i from 1 to tc
--          set folderName to item i of dtF --<:  is the folder name, no need to use text item delimiters -->":"
--          if folderName does not start with "2_" and folderName does not start with "Hot" and folderName does not start with "Press" and folderName does --not start with "Design" and folderName does not start with "Keywords" and folderName does not start with "Season" and folderName does not
--start with "Sue" and folderName does not start with "Design" then
--Setup list of folders and process details of folders
tell application "Finder" to set folderName to (choose folder with prompt "Select Folder")
set {oldTID, my text item delimiters} to {my text item delimiters, "_WK"}
set FolderEndName to last text item of folderName
set brandName to first text item of folderName
set my text item delimiters to "_PSD"
set weekNumber to first text item of FolderEndName
set my text item delimiters to oldTID
set theFolder to ("Hal 9000:Users:matthew:Desktop:" & folderName)
--set up names to destination folders and create locally based on brand name and week number
set this_local_folder to "Images:2012-2013"
set localWeekFolder to my getFolderPath("WK" & weekNumber, this_local_folder)
set localBrandFolder to my getFolderPath(brandName, localWeekFolder)
set localBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", localBrandFolder)
set localBrandFolder_High_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_HR", localBrandFolder)
set localBrandFolder_PSD to my getFolderPath(brandName & "_WK" & weekNumber & "_PSD", localBrandFolder)
set this_Network_folder to "DCKGEN:Brands:Zoom:Brand - Zoom:Upload Photos:2013:"
set networkWeekFolder to my getFolderPath("Week" & weekNumber, this_Network_folder)
set networkBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", networkWeekFolder)
set website_images to "DCKGEN:Website_Images:"
--set up names to destination folders and create over Netwrok for FTP collection (based on a mounted drive)
set this_ftp_folder to "Impulse:"
set ftpWeekFolder to my getFolderPath("Week" & weekNumber, this_ftp_folder)
set ftpBrandFolder to my getFolderPath(brandName, ftpWeekFolder)
set ftpBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", ftpBrandFolder)
set ftpBrandFolder_High_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_HR", ftpBrandFolder)
--taking the folder identify which process it must follow.  F R E E D O M   W I T H  P N G
if brandName is equal to "Freedom" then
          try
                    tell application "Finder" to set o's theseNames to (name of files of alias theFolder whose file type is in the type_list or name extension is in the extension_list)
          on error
                    set o's theseNames to {} -- no psd files or "8BPS"
          end try
          set numOfNames to (count o's theseNames)
          repeat with j from 1 to numOfNames
                    set thefile to theFolder & ":" & (item j of o's theseNames)
  --    F R E E D O M     Folder Photoshop Process W I T H  P N G
                    set thisName to (item j of o's theseNames)
                    tell application "Finder"
                              set t_ext to name extension of file thefile
                              if t_ext is not "" then set thisName to text 1 thru -((count t_ext) + 2) of thisName
                              set b to exists file (localBrandFolder_PSD & thisName & ".psd")
                    end tell
                    if not b or (b and not skipFiles) then -- not exists file or file exists and "replace" (continue the rest of the script).
                              tell application "Adobe Photoshop CS5.1"
  -- I remove the command activate, Photoshop stay in background
                                        set ruler units of settings to pixel units
                                        try
  open (alias thefile) showing dialogs never
                                                  set origName to name of current document
                                                  set myOptions to {class:JPEG save options, quality:12}
                                                  set myPNGOptions to {class:PNG save options, interlaced:false}
                                                  set myPSDOptions to {class:Photoshop save options, embed color profile:true, save layers:true}
                                                  tell current document
  --If the quick mask mode has been left on then delete the channel Quick Mask
                                                            if (quick mask mode) then delete channel ¬
                                                                      "Quick Mask"
  --If the Layer is incorrectly labeled with Original Layer it needs renaming to original Image
                                                            if (exists layer "Original Layer") then ¬
                                                                      tell layer "Original Layer" to set name to "Original Image"
  save in (localBrandFolder_PSD & origName) as Photoshop format with options myPSDOptions without copying
                                                            (delete layer "Original Image") flatten
  resize image resolution 300 resample method none
  --sharpen image
  filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
  save in (ftpBrandFolder_High_Res & name) as JPEG with options myOptions without copying
  --Prepare for Low RES by resetting image history
                                                            set current history state to history state 3
  delete current layer
  merge visible layers
                                                            resize image width 1020
  resize image resolution 300 resample method none
  filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
  --add save to lowResFolder with same options
  save in (networkBrandFolder_Low_Res & name) as PNG with options myPNGOptions without copying
  flatten
  save in (networkBrandFolder_Low_Res & name) as JPEG with options myOptions without copying
                                                            set newFile to file path
                                                            set newFile2 to newFile as string -- for testing end of name
                                                            if newFile2 ends with "_2.jpg" or newFile2 ends with "_3.jpg" or newFile2 ends with "_4.jpg" or newFile2 ends with "_5.jpg" or newFile2 ends with "_6.jpg" or newFile2 ends with "_7.jpg" or newFile2 ends with "_8.jpg" or newFile2 ends with "_9.jpg" or newFile2 ends with "_10.jpg" or newFile2 ends with "11.jpg" then -- exclude website_images
                                                                      my duplicateFile(newFile, {ftpBrandFolder_Low_Res})
                                                            else
                                                                      save in (website_images & name) as JPEG with options myOptions without copying
                                                            end if
  close saving no
                                                  end tell
                                        on error
                                                  set noError to false
                                                  my myLogs(thefile) -- write path to log file in Desktop
                                                  try
  close saving no --if exists, close current document
                                                  end try
                                        end try
                              end tell
                    end if
          end repeat
  --End F R E E D O M  W I T H  P N G
end if
if not noError then do shell script "/usr/bin/open  ~/Desktop/LogPhotoshopError.txt'"
on myLogs(t)
          try
                    do shell script "echo " & (quoted form of t) & ">> ~/Desktop/LogPhotoshopError.txt'"
          end try
end myLogs
on duplicateFile(tFile, foldersPath) -- tFile is an alias, foldersPath is a list of folder
          tell application "Finder" to repeat with folderPath in foldersPath
                    with timeout of 200 seconds -- adjust it,  error if the copy  is longer that 200 seconds
  duplicate tFile to folder folderPath with replacing
                    end timeout
          end repeat
end duplicateFile
on getFolderPath(tName, folderPath)
          tell application "Finder" to tell folder folderPath
                    if not (exists folder tName) then
                              return (make new folder at it with properties {name:tName}) as string
                    else
                              return (folder tName) as string
                    end if
          end tell
end getFolderPath
tell application "Finder"
          open "Hal 9000:Users:matthew:Desktop:LogPhotoshopError.txt"
end tell

Answer 1

I'm getting close or at least I hope this is how it looks now, but appears not pick up the files in the folder?
The result
          exists folder "Freedom_WK20_HR" of folder "impulse:Week20:Freedom:"
          get folder "Freedom_WK20_HR" of folder "impulse:Week20:Freedom:"
          get name of every file of alias (alias "Images:2012-2013:WK20:Freedom:Freedom_WK20_PSD:") whose {"8BPS"} contains file type or {"psd"} contains name extension
          open "Hal 9000:Users:matthew:Desktop:LogPhotoshopError.txt"
end tell
--------------------MAIN SCRIPT BELOW__------------------
property type_list : {"8BPS"}
property extension_list : {"psd"}
script o
          property theseNames : {}
end script
-- empty log file
do shell script "echo  'Files not processed in Photoshop :'  > ~/Desktop/LogPhotoshopError.txt"
set noError to true
--at the beginning of the script, ask whether to replace or skip existing files? to apply to all?
--use the result for the if file exists?
display dialog "Should I replace or skip exisiting files?" buttons {"Replace", "Skip (Faster)"} default button 2 with icon 1
set skipFiles to (button returned of the result) is "Skip (Faster)"
--Setup list of folders and process details of folders
tell application "Finder"
          set theFolder to (choose folder with prompt "Select Folder")
          set folderName to name of theFolder
          set {oldTID, my text item delimiters} to {my text item delimiters, "_WK"}
          set FolderEndName to last text item of folderName
          set brandName to first text item of folderName
          set my text item delimiters to "_PSD"
          set weekNumber to first text item of FolderEndName
          set my text item delimiters to oldTID
  --set up names to destination folders and create locally based on brand name and week number
          set this_local_folder to "Images:2012-2013"
          set localWeekFolder to my getFolderPath("WK" & weekNumber, this_local_folder)
          set localBrandFolder to my getFolderPath(brandName, localWeekFolder)
          set localBrandFolder_PSD to my getFolderPath(brandName & "_WK" & weekNumber & "_PSD", localBrandFolder)
          set this_Network_folder to "DCKGEN:Brands:Zoom:Brand - Zoom:Upload Photos:2013:"
          set networkWeekFolder to my getFolderPath("Week" & weekNumber, this_Network_folder)
          set networkBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", networkWeekFolder)
          set website_images to "DCKGEN:Website_Images:"
  --set up names to destination folders and create over Netwrok for FTP collection (based on a mounted drive)
          set this_ftp_folder to "Impulse:"
          set ftpWeekFolder to my getFolderPath("Week" & weekNumber, this_ftp_folder)
          set ftpBrandFolder to my getFolderPath(brandName, ftpWeekFolder)
          set ftpBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", ftpBrandFolder)
          set ftpBrandFolder_High_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_HR", ftpBrandFolder)
  --taking the folder identify which process it must follow.
          if brandName is equal to "BHS" then
                    try
                              tell application "Finder" to set o's theseNames to (name of files of alias theFolder whose file type is in the type_list or name extension is in the extension_list)
                    on error
                              set o's theseNames to {} -- no psd files or "8BPS"
                    end try
                    set numOfNames to (count o's theseNames)
                    repeat with j from 1 to numOfNames
                              set thefile to theFolder & ":" & (item j of o's theseNames)
  --    B H S    Folder Photoshop Process
                              set thisName to (item j of o's theseNames)
                              tell application "Finder"
                                        set t_ext to name extension of file thefile
                                        if t_ext is not "" then set thisName to text 1 thru -((count t_ext) + 2) of thisName
                                        set b to exists file (localBrandFolder_PSD & thisName & ".psd")
                              end tell
                              if not b or (b and not skipFiles) then -- not exists file or file exists and "replace" (continue the rest of the script).
                                        tell application "Adobe Photoshop CS5.1"
  -- I remove the command activate, Photoshop stay in background
                                                  set ruler units of settings to pixel units
                                                  try
  open (alias thefile) showing dialogs never
                                                            set origName to name of current document
                                                            set myOptions to {class:JPEG save options, quality:12}
                                                            set myPSDOptions to {class:Photoshop save options, embed color profile:true, save layers:true}
                                                            tell current document
  --If the quick mask mode has been left on then delete the channel Quick Mask
                                                                      if (quick mask mode) then delete channel ¬
                                                                                "Quick Mask"
  --If the Layer is incorrectly labeled with Original Layer it needs renaming to original Image
                                                                      if (exists layer "Original Layer") then ¬
                                                                                tell layer "Original Layer" to set name to "Original Image"
  save in (localBrandFolder_PSD & origName) as Photoshop format with options myPSDOptions without copying
                                                                      (delete layer "Original Image") flatten
  resize image resolution 300 resample method none
  --sharpen image
  filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
  save in (ftpBrandFolder_High_Res & name) as JPEG with options myOptions without copying
  --Prepare for Low RES by resetting image history
                                                                      set current history state to history state 3
                                                                      flatten
                                                                      resize image width 1348
  resize image resolution 300 resample method none
  filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
  --add save to lowResFolder with same options
  save in (networkBrandFolder_Low_Res & name) as JPEG with options myOptions without copying
                                                                      set newFile to file path
                                                                      set newFile2 to newFile as string -- for testing end of name
                                                                      if newFile2 ends with "_2.jpg" or newFile2 ends with "_3.jpg" or newFile2 ends with "_4.jpg" or newFile2 ends with "_5.jpg" or newFile2 ends with "_6.jpg" or newFile2 ends with "_7.jpg" or newFile2 ends with "_8.jpg" or newFile2 ends with "_9.jpg" or newFile2 ends with "_10.jpg" or newFile2 ends with "11.jpg" then -- exclude website_images
                                                                                my duplicateFile(newFile, {ftpBrandFolder_Low_Res})
                                                                      else
                                                                                my duplicateFile(newFile, {ftpBrandFolder_Low_Res, website_images})
                                                                      end if
  close saving no
                                                            end tell
                                                  on error
                                                            set noError to false
                                                            my myLogs(thefile) -- write path to log file in Desktop
                                                            try
  close saving no --if exists, close current document
                                                            end try
                                                  end try
                                        end tell
                              end if
                    end repeat
  --End BHS
  --taking the folder identify which process it must follow. B U R T O N
          else if brandName is equal to "Burton" then
                    try
                              tell application "Finder" to set o's theseNames to (name of files of alias theFolder whose file type is in the type_list or name extension is in the extension_list)
                    on error
                              set o's theseNames to {} -- no psd files or "8BPS"
                    end try
                    set numOfNames to (count o's theseNames)
                    repeat with j from 1 to numOfNames
                              set thefile to theFolder & ":" & (item j of o's theseNames)
  --    B U R T O N    Folder Photoshop Process
                              set thisName to (item j of o's theseNames)
                              tell application "Finder"
                                        set t_ext to name extension of file thefile
                                        if t_ext is not "" then set thisName to text 1 thru -((count t_ext) + 2) of thisName
                                        set b to exists file (localBrandFolder_PSD & thisName & ".psd")
                              end tell
                              if not b or (b and not skipFiles) then -- not exists file or file exists and "replace" (continue the rest of the script).
                                        tell application "Adobe Photoshop CS5.1"
  -- I remove the command activate, Photoshop stay in background
                                                  set ruler units of settings to pixel units
                                                  try
  open (alias thefile) showing dialogs never
                                                            set origName to name of current document
                                                            set myOptions to {class:JPEG save options, quality:12}
                                                            set myPSDOptions to {class:Photoshop save options, embed color profile:true, save layers:true}
                                                            tell current document
  --If the quick mask mode has been left on then delete the channel Quick Mask
                                                                      if (quick mask mode) then delete channel ¬
                                                                                "Quick Mask"
  --If the Layer is incorrectly labeled with Original Layer it needs renaming to original Image
                                                                      if (exists layer "Original Layer") then ¬
                                                                                tell layer "Original Layer" to set name to "Original Image"
  save in (localBrandFolder_PSD & origName) as Photoshop format with options myPSDOptions without copying
                                                                      (delete layer "Original Image") flatten
  resize image resolution 300 resample method none
  --sharpen image
  filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
  save in (ftpBrandFolder_High_Res & name) as JPEG with options myOptions without copying
  --Prepare for Low RES by resetting image history
                                                                      set current history state to history state 3
                                                                      flatten
                                                                      resize image width 1020
  resize image resolution 300 resample method none
  filter current layer using unsharp mask with options {amount:80, radius:3.2, threshold:0}
  --add save to lowResFolder with same options
  save in (networkBrandFolder_Low_Res & name) as JPEG with options myOptions without copying
                                                                      set newFile to file path
                                                                      set newFile2 to newFile as string -- for testing end of name
                                                                      if newFile2 ends with "_2.jpg" or newFile2 ends with "_3.jpg" or newFile2 ends with "_4.jpg" or newFile2 ends with "_5.jpg" or newFile2 ends with "_6.jpg" or newFile2 ends with "_7.jpg" or newFile2 ends with "_8.jpg" or newFile2 ends with "_9.jpg" or newFile2 ends with "_10.jpg" or newFile2 ends with "11.jpg" then -- exclude website_images
                                                                                my duplicateFile(newFile, {ftpBrandFolder_Low_Res})
                                                                      else
                                                                                my duplicateFile(newFile, {ftpBrandFolder_Low_Res, website_images})
                                                                      end if
  close saving no
                                                            end tell
                                                  on error
                                                            set noError to