Open files in folder and repeat

Question

How can i open the files in the folder  if you scroll to "--open file items of the name folder" you can see where I am struggling to run the script.
How should this look to run, currently the script runs, with no errors or anything appearing in the folders.
property type_list : {"PHOTOSHOP"}
property extension_list : {"psd"}
--Setup list of folders and process details of folders
set dtF to paragraphs of (do shell script "ls -F ~/Desktop | grep '/' | cut -d'/' -f1")
repeat with i from 1 to number of items in dtF
          set this_item to item i of dtF
          if this_item does not start with "2_" and this_item does not start with "Hot" and this_item does not start with "Press" then
                    try
                              set folderPath to this_item
                              set {oldTID, my text item delimiters} to {my text item delimiters, ":"}
                              set folderName to last text item of folderPath
                              set my text item delimiters to "_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)
                    end try
          end if
  --set up names to destination folders and create locally based on brand name and week number
          try
                    set this_local_folder to "Hal 9000:Users:matthew:Pictures:2011-2012"
                    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 up names to destination folders and create over Netwrok including an already exisiting folder
                    set this_Network_folder to "DCKGEN:Brands:Zoom:Brand - Zoom:Upload Photos:2012:"
                    set networkWeekFolder to my getFolderPath("WK" & weekNumber, this_Network_folder)
                    set networkBrandFolder to my getFolderPath(brandName, networkWeekFolder)
                    set networkBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", networkBrandFolder)
                    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.
--open file items of the name folder
                    if brandName is equal to "Diva" then set filelist to (files of alias theFolder whose ¬
                              file type is in the type_list or name extension is in the extension_list)
                    repeat with alist in filelist
                              tell application "Finder"
                                        set thefile to aFiles as alias
                              end tell
                              tell application "Adobe Photoshop CS5.1"
  activate
                                        set myOptions to {class:JPEG save options, quality:12}
                                        tell front 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"
                                                  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 file ((localBrandFolder_High_Res as string) & name) as JPEG with options myOptions without copying
                                                  tell application "Finder"
  duplicate last file of localBrandFolder_High_Res to ftpBrandFolder_High_Res with replacing
                                                  end tell
  --Prepare for Low RES by resetting image history
                                                  tell application "Adobe Photoshop CS5.1"
                                                            set current history state of current document to history state 3 ¬
                                                                      of current document
                                                  end tell
  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 file ((localBrandFolder_Low_Res as string) & name) as JPEG with options myOptions without copying
                                                  tell application "Finder"
  duplicate last file of localBrandFolder_Low_Res to website_images with replacing
  duplicate last file of localBrandFolder_Low_Res to ftpBrandFolder_Low_Res with replacing
  duplicate last file of localBrandFolder_Low_Res to networkBrandFolder_Low_Res with replacing
                                                  end tell
  --close file
                                                  close
                                        end tell
                              end tell
                    end repeat
          end try
end repeat
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

Answer 1

This is how it looks.
A few things i need to add.
How can I save of time by not having to save to the multiple locations (i did try t using finder to duplicate last file of folder but that didn't work too well)
Also the line where it saves to website_images in need to exclude those files that end in _2 and _3 (or files that are exactly 16 digits long).
And finally if in photoshop it come across and error I need to skip the file and log it to a text file or just leave it open and continue.
Also how do I have it run in the background so i can continue to use the computer?
and finally any other way to make it run faster?
property type_list : {"8BPS"}
property extension_list : {"psd"}
--Setup list of folders and process details of folders
set dtF to paragraphs of (do shell script "ls -F ~/Desktop | grep '/' | cut -d'/' -f1")
repeat with i from 1 to number of items in dtF
          set this_item to item i of dtF
          if this_item does not start with "2_" and this_item does not start with "Hot" and this_item does not start with "Press" then
                    set folderPath to this_item
                    set {oldTID, my text item delimiters} to {my text item delimiters, ":"}
                    set folderName to last text item of folderPath
                    set my text item delimiters to "_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 "Hal 9000:Users:matthew:Pictures:2011-2012"
                    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)
  --taking the folder identify which process it must follow.
  --taking the folder identify which process it must follow.
                    set this_Network_folder to "DCKGEN:Brands:Zoom:Brand - Zoom:Upload Photos:2012:"
                    set networkWeekFolder to my getFolderPath("WK" & weekNumber, this_Network_folder)
                    set networkBrandFolder to my getFolderPath(brandName, networkWeekFolder)
                    set networkBrandFolder_Low_Res to my getFolderPath(brandName & "_WK" & weekNumber & "_LR", networkBrandFolder)
                    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)
                    if brandName is equal to "Diva" then
                              tell application "Finder" to set filelist to (files of alias theFolder whose file type is in the type_list or name extension is in the extension_list)
                              repeat with thefile in filelist
                                        set thefile to thefile as string -- convert Finder item to string
  --    D   I   V   A    Folder Photoshop Process
                                        tell application "Adobe Photoshop CS5.1"
  activate
  open alias thefile
                                                  set myOptions to {class:JPEG save options, quality:12}
                                                  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"
                                                            (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 (localBrandFolder_High_Res & name) as JPEG with options myOptions without copying
  save in (ftpBrandFolder_High_Res & name) as JPEG with options myOptions without copying
  --tell application "Finder"
  --duplicate last file to folder ftpBrandFolder_High_Res with replacing
  --end tell
  -- example : duplicate file (localBrandFolder_High_Res & name) to folder localBrandFolder_Low_Res
  --my duplicateFile(localBrandFolder_High_Res & name, localBrandFolder_Low_Res) --  use the handler to duplicate file
  --Prepare for Low RES by resetting image history
                                                            set current history state to history state 3
  flatten
                                                            resize image width 1920
  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 (localBrandFolder_Low_Res & name) as JPEG with options myOptions without copying
  save in (networkBrandFolder_Low_Res) as JPEG with options myOptions without copying
  save in (ftpBrandFolder_Low_Res & name) as JPEG with options myOptions without copying
  save in (website_images & name) as JPEG with options myOptions without copying
                                                            close
  --my duplicateFile(localBrandFolder_Low_Res & name, aFolderPath) --  use the handler to duplicate file
                                                  end tell
                                        end tell
                              end repeat
  -- end brandName = "Diva"
                    else if brandName is equal to "another brandName 1" then
  --another code
                    else if brandName is equal to "another brandName 2" then
  --another code
                    end if
          end if
end repeat
on duplicateFile(tFilePath, folderPath)
          tell application "Finder"
  duplicate file tFilePath to folder folderPath with replacing
          end tell
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