Collect file count and add to CSV file.

Question

I have this script efficiently crafted by Jacques Rioux and I now what to do a little more with it.
What it currently does is look on my desktop at a select number of Folders on my desktop. It then looks at the keyword information and then returns the results to a csv file.
it looks for all the photographs; shot by Matthew. edited by Matthew etc.... with the date appended to the start and then the next time the script is run it adds the next data to the bottom of the last.
The result looks like this
19/12/2012,255,412,37,68
27/12/2012,197,342,16,26
From the fist line you can see on the 19th December 2012 I shot 255 images
No what I would like it to do is:-
a) Specifaically look in the folders of the desktop whose name begins with BH, BU, DA, DI, DO, FR, IN, NO, MA, TM, WA, PR, SE (These folders may or may not exist at the time, but are the only folders it should look at)
b) also do a file count of the contents of the above individual folders and append it to the csv file. Again a folder may not exist. Where it doesn't exist the file count must = 0 so that it can then be added to the CSV file.
This is how I hope the line to look like from the CSV file,
19/12/2012,255,412,37,68, 5,3,20,25,60,101,25,0,85,5,40,0,0
from the line above you can see that the folders NO, PR, and SE were all non existant and therefore a 0 was written in its place on the CSV file.
Below is the working script that looks for the keywords.
set spotlightqueryList to {"Shot by Matthew", "Editted by Matthew", "Shot by Shah", "Editted by Shah"}
set thefolders to {"Desktop"}
set thekind to "PSD"
set csvFileName to "ProductivityLog.csv"
set tHome to path to home folder as string
set tc to count spotlightqueryList
set theseCount to {}
repeat tc times
          set end of theseCount to 0
end repeat
repeat with i in thefolders
          set thepath to my existsItem(tHome & i)
          if thepath is not "" then -- exists
                    repeat with j from 1 to tc
                              set tQuery to item j of spotlightqueryList
                              do shell script "mdfind -onlyin " & thepath & " " & tQuery & " " & thekind & " | wc -l" -- wc return the number of lines
                              set item j of theseCount to (item j of theseCount) + (the result as integer) -- add the number of lines
                    end repeat
          end if
end repeat
set csvPath to "DCKGEN:Brands:Zoom:Online Photography:" & csvFileName
set oTID to text item delimiters
set text item delimiters to "," -- CSV delimiter
set thisLine to (theseCount as text) -- convert list to text, each number is separated by comma
set text item delimiters to oTID
tell (current date) to set tDate to short date string
set beginning of theseCount to tDate -- insert the date (first column)
set csvPath to "DCKGEN:Brands:Zoom:Online Photography:" & csvFileName
set oTID to text item delimiters
set text item delimiters to "," -- CSV delimiter
set thisLine to (theseCount as text) -- convert list to text, each number is separated by comma
set text item delimiters to oTID
--- append this line to CSV file
do shell script "echo " & (quoted form of thisLine) & " >>" & quoted form of POSIX path of csvPath
on existsItem(f)
          try
                    return quoted form of POSIX path of (f as alias) -- exists
          end try
          return "" -- else not exists
end existsItem
(* just a way to visually see it working
set dialog to "Matt Shot: \"" & item 1 of theseCount & "\"" & return & return & "Matt Edit: \"" & item 2 of theseCount & "\"" & return & return & "Shah Shot: \"" & item 3 of theseCount & "\"" & return & return & "Shah Edit: \"" & item 4 of theseCount & "\"" & return & return
display dialog dialog
This is what I began to wrote but really have no idea how I would write it into the data into the CSV file and also I was struggling to get the non existant folder to = 0?
tell application "Finder"
          set folderA to (get first folder of desktop whose name starts with "BH")
          set folderB to (get first folder of desktop whose name starts with "Bu")
          set folderC to (get first folder of desktop whose name starts with "Da")
          set folderD to (get first folder of desktop whose name starts with "DI")
          set folderE to (get first folder of desktop whose name starts with "Do")
          set folderF to (get first folder of desktop whose name starts with "Fr")
          set folderG to (get first folder of desktop whose name starts with "In")
          set folderH to (get first folder of desktop whose name starts with "Ma")
          if (exists (get first folder of desktop whose name starts with "No")) is true then
                    set folderI to (get first folder of desktop whose name starts with "No")
          else
                    set folderI to "0"
                    set folderJ to (get first folder of desktop whose name starts with "To")
                    set folderK to (get first folder of desktop whose name starts with "Wa")
                    if (exists (get first folder of desktop whose name starts with "SE")) is truethen
                              set folderL to (get first folder of desktop whose name starts with"SE")
                    else
                              set folderL to "0"
                              if (exists (get first folder of desktop whose name starts with "PR"))is true then
                                        set folderM to (get first folder of desktop whose name starts with "PR")
                              else
                                        set folderM to "0"
                                        set folderM to (get first folder of desktop whose name starts with "PR")
                              end if
                    end if
          end if
          tell application "System Events"
                    set contentsA to (number of files in folderA)
                    set contentsB to (number of files in folderB)
                    set contentsC to (number of files in folderC)
                    set contentsD to (number of files in folderD)
                    set contentsE to (number of files in folderE)
                    set contentsF to (number of files in folderF)
                    set contentsG to (number of files in folderG)
                    set contentsH to (number of files in folderH)
                    set contentsI to (number of files in folderI)
                    set contentsJ to (number of files in folderJ)
                    set contentsK to (number of files in folderK)
                    set contentsL to (number of files in folderL)
                    set contentsM to (number of files in folderM)
          end tell
end tell
I hope someone can help me compile the remaining data.
Many thanks
Matt

Answer 1

OK i've done my homework and I have been able to get a lot closer I just need to make the search specific to a number of folders on the desktop?
Line 7 explains how I would like it to search.
set spotlightqueryList to {"Shot_by_Matthew", "Editted_by_Matthew", "Shot_by_Shah", "Editted_by_Shah"}
set spotlightqueryList2 to {"AL70", "BH70", "BH70", "BU40", "ES20", "DV25", "DJ30", "RA30", "FR10", "GT55", "MA65", "MB65", "MC65", "FI65", "MF65", "MH65", "NN_", "TM15", "WA35", "PR_", "SE_"}
set thefolders to {"Desktop"}
--Here I need to limit the search so that it only looks in folders of the desktop whose name begins with "BH", "BU", "DA", "DI", "DO", "FR", "IN", "MA", "NO", "TM", "WA", "PR", "SE"
set thekind to "PSD"
set csvFileName to "ProductivityLog.csv"
set tHome to path to home folder as string
set tc to count spotlightqueryList
set theseCount to {}
repeat tc times
          set end of theseCount to 0
end repeat
set tc2 to count spotlightqueryList2
set theseCount2 to {}
repeat tc2 times
          set end of theseCount2 to 0
end repeat
repeat with i in thefolders
          set thepath to my existsItem(tHome & i)
          if thepath is not "" then -- exists
                    repeat with j from 1 to tc
                              set tQuery to item j of spotlightqueryList
                              do shell script "mdfind -onlyin " & thepath & " " & tQuery & " " & thekind & " | wc -l" -- wc return the number of lines
                              set item j of theseCount to (item j of theseCount) + (the result as integer) -- add the number of lines
                    end repeat
          end if
end repeat
repeat with i2 in thefolders
          set thepath2 to my existsItem2(tHome & i2)
          if thepath2 is not "" then -- exists
                    repeat with j2 from 1 to tc2
                              set tQuery2 to item j2 of spotlightqueryList2
                              do shell script "mdfind -onlyin " & thepath2 & "  -name " & tQuery2 & " " & thekind & " | wc -l" -- wc return the number of lines
                              set item j2 of theseCount2 to (item j2 of theseCount2) + (the result as integer) -- add the number of lines
                    end repeat
          end if
end repeat
set csvPath to "DCKGEN:Brands:Zoom:Online Photography:" & csvFileName
set oTID to text item delimiters
set text item delimiters to "," -- CSV delimiter
set thisLine to (theseCount as text) -- convert list to text, each number is separated by comma
set thisLine2 to (theseCount2 as text) -- convert list to text, each number is separated by comma
set text item delimiters to oTID
tell (current date) to set tDate to short date string
set beginning of theseCount to tDate -- insert the date (first column)
set csvPath to "DCKGEN:Brands:Zoom:Online Photography:" & csvFileName
set oTID to text item delimiters
set text item delimiters to "," -- CSV delimiter
set thisLine to (theseCount as text) -- convert list to text, each number is separated by comma
set thisLine2 to (theseCount2 as text) -- convert list to text, each number is separated by comma
set text item delimiters to oTID
--- append this line to CSV file
do shell script "echo " & (quoted form of thisLine) & (quoted form of thisLine2) & " >>" & quoted form of POSIX path of csvPath
on existsItem(f)
          try
                    return quoted form of POSIX path of (f as alias) -- exists
          end try
          return "" -- else not exists
end existsItem
on existsItem2(f)
          try
                    return quoted form of POSIX path of (f as alias) -- exists
          end try
          return "" -- else not exists
end existsItem2
(* just a way to visually see it working
set dialog to "Matt Shot: \"" & item 1 of theseCount & "\"" & return & return & "Matt Edit: \"" & item 2 of theseCount & "\"" & return & return & "Shah Shot: \"" & item 3 of theseCount & "\"" & return & return & "Shah Edit: \"" & item 4 of theseCount & "\"" & return & return
display dialog dialog