Change on input to cater for single and multiple files?

Question

This script currently allows me to drop a single file on to the droplet and it processes it, I would like to be able to drop 1 or more items on it at the same time.
How can I get it to do all that are dropped on the droplet please?
Matt
property type_list : {"8BPS"}
property extension_list : {"psd"}
script o
          property theseNames : {}
end script
on open this_item
          set thefile to this_item as text
          tell application "Finder" to set TheName to (name of file thefile) --> the name
          set the1stLetter to the first character of TheName --> the first letter
          set the2ndLetter to the second character of TheName --> the first letter
          set brandInitial to {the1stLetter, the2ndLetter} as text
          if brandInitial is equal to "BH" then ¬
                    set brandName to "BH"
          if brandInitial is equal to "AL" then ¬
                    set brandName to "BH"
          if brandInitial is equal to "SM" then ¬
                    set brandName to "BH"
          if brandInitial is equal to "BU" then ¬
                    set brandName to "Bu"
          if brandInitial is equal to "ES" then ¬
                    set brandName to "Dai"
          if brandInitial is equal to "DV" then ¬
                    set brandName to "DIV"
          if brandInitial is equal to "DJ" then ¬
                    set brandName to "Dons"
          if brandInitial is equal to "RA" then ¬
                    set brandName to "Dons"
          if brandInitial is equal to "FR" then ¬
                    set brandName to "Free"
          if brandInitial is equal to "GT" then ¬
                    set brandName to "Inter"
          if brandInitial is equal to "CW" then ¬
                    set brandName to "Inter"
          if brandInitial is equal to "MA" then ¬
                    set brandName to "Mata"
          if brandInitial is equal to "MC" then ¬
                    set brandName to "Mata"
          if brandInitial is equal to "FI" then ¬
                    set brandName to "Mata"
          if brandInitial is equal to "MF" then ¬
                    set brandName to "Mata"
          if brandInitial is equal to "MB" then ¬
                    set brandName to "Mata"
          if brandInitial is equal to "MH" then ¬
                    set brandName to "Mata"
          if brandInitial is equal to "NN" then ¬
                    set brandName to "Nord
          if brandInitial is equal to "TM" then ¬
                    set brandName to "Top"
          if brandInitial is equal to "WA" then ¬
                    set brandName to "Wallis"
          if brandInitial is equal to "PR" then ¬
                    set brandName to "Press"
          set weekNumber to ""
          display dialog "Please enter the week number:" default answer weekNumber
          set weekNumber to text returned of result
          try
                    if weekNumber = "" then error
                    set theWeekNumber to theWeekNumber as number
          on error
                    set thePrefix to "INVALID ENTRY! "
          end try
  --Folder location Setup
          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)
  --all files for website
          set website_images to "DCKGEN:Website_Images:"
  --set up names to destination folders and create over Network 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)
  --set theFolder to eachItem as string -- I think this is the line that could be causing the problem.
  --taking the folder identify which process it must follow.
          if brandName is equal to "BH" then
                    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
  --get file path, return path of the JPEG file, work with (without copying)
  -- (with copying) : it return path of PSD file
                                                  set newFile to file path --( return path of type alias )
  -- duplicate file using the Finder  -->on duplicateFile(..)
                                                  my duplicateFile(newFile, {ftpBrandFolder_High_Res})
  --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:50, 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
                              end try
                              do shell script "afplay /System/Library/Sounds/Glass.aiff"
                              tell application "System Events"
                                        tell application processes
  key code 28 using {command down, option down, shift down}
                                                  delay 0.05
  key code 28 using {command down, option down, shift down}
                                        end tell
                              end tell
                    end tell
  --End BH
  --taking the folder identify which process it must follow. B U
          else if brandName is equal to "Bur" then
  --    B U R    Folder Photoshop Process
          else if brandName is equal to "Press" then
  --    P R E S S     Folder Photoshop Process
--Do some photoshop stuff
  --End P R E S S
          end if
end open
--then the next etc.
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

Answer 1

here is the whole thing I tried shortening the script to post I think thats how the " got dropped
property type_list : {"8BPS"}
property extension_list : {"psd"}
script o
          property theseNames : {}
end script
on process(this_item)
          set thefile to this_item as text
          tell application "Finder" to set TheName to (name of file thefile) --> the name
          set the1stLetter to the first character of TheName --> the first letter
          set the2ndLetter to the second character of TheName --> the first letter
          set brandInitial to {the1stLetter, the2ndLetter} as text
          if brandInitial is equal to "BH" then ¬
                    set brandName to "BHS"
          if brandInitial is equal to "AL" then ¬
                    set brandName to "BHS"
          if brandInitial is equal to "SM" then ¬
                    set brandName to "BHS"
          if brandInitial is equal to "BU" then ¬
                    set brandName to "Burton"
          if brandInitial is equal to "ES" then ¬
                    set brandName to "DaisyAndEve"
          if brandInitial is equal to "DV" then ¬
                    set brandName to "DIVA"
          if brandInitial is equal to "DJ" then ¬
                    set brandName to "DorothyPerkins"
          if brandInitial is equal to "RA" then ¬
                    set brandName to "DorothyPerkins"
          if brandInitial is equal to "FR" then ¬
                    set brandName to "Freedom"
          if brandInitial is equal to "GT" then ¬
                    set brandName to "International"
          if brandInitial is equal to "CW" then ¬
                    set brandName to "International"
          if brandInitial is equal to "MA" then ¬
                    set brandName to "Matalan"
          if brandInitial is equal to "MC" then ¬
                    set brandName to "Matalan"
          if brandInitial is equal to "FI" then ¬
                    set brandName to "Matalan"
          if brandInitial is equal to "MF" then ¬
                    set brandName to "Matalan"
          if brandInitial is equal to "MB" then ¬
                    set brandName to "Matalan"
          if brandInitial is equal to "MH" then ¬
                    set brandName to "Matalan"
          if brandInitial is equal to "NN" then ¬
                    set brandName to "Nordstrom"
          if brandInitial is equal to "TM" then ¬
                    set brandName to "TopMan"
          if brandInitial is equal to "AL" then ¬
                    set brandName to "BHS"
          if brandInitial is equal to "WA" then ¬
                    set brandName to "Wallis"
          if brandInitial is equal to "PR" then ¬
                    set brandName to "Press"
          set weekNumber to ""
          display dialog "Please enter the week number:" default answer weekNumber
          set weekNumber to text returned of result
          try
                    if weekNumber = "" then error
                    set theWeekNumber to theWeekNumber as number
          on error
                    set thePrefix to "INVALID ENTRY! "
          end try
  --Folder location Setup
          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)
  --all files for website
          set website_images to "DCKGEN:Website_Images:"
  --set up names to destination folders and create over Network 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)
  --set theFolder to eachItem as string -- I think this is the line that could be causing the problem.
  --taking the folder identify which process it must follow.
          if brandName is equal to "BHS" then
                    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
  --get file path, return path of the JPEG file, work with (without copying)
  -- (with copying) : it return path of PSD file
                                                  set newFile to file path --( return path of type alias )
  -- duplicate file using the Finder  -->on duplicateFile(..)
                                                  my duplicateFile(newFile, {ftpBrandFolder_High_Res})
  --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:50, 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
                              end try
                              do shell script "afplay /System/Library/Sounds/Glass.aiff"
                              tell application "System Events"
                                        tell application processes
  key code 28 using {command down, option down, shift down}
                                                  delay 0.05
  key code 28 using {command down, option down, shift down}
                                        end tell
                              end tell
                    end tell
  --End BH
  --taking the folder identify which process it must follow. B U R T O N
          else if brandName is equal to "Burton" then
  --    B U R T O N    Folder Photoshop Process
                    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
  --get file path, return path of the JPEG file, work with (without copying)
  -- (with copying) : it return path of PSD file
                                                  set newFile to file path --( return path of type alias )
  -- duplicate file using the Finder  -->on duplicateFile(..)
                                                  my duplicateFile(newFile, {ftpBrandFolder_High_Res})
  --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
                              end try
                              do shell script "afplay /System/Library/Sounds/Glass.aiff"
                              tell application "System Events"
                                        tell application processes
  key code 28 using {command down, option down, shift down}
                                                  delay 0.05
  key code 28 using {command down, option down, shift down}
                                        end tell
                              end tell
                    end tell
  --End B U R T O N