Create a folder that inside is in list view and smallest font?

Question

I hope this is simple,
Using Applescript I want to be able to make a folder That when I open it, is in the list mode and using the smalles font (8). Could be useful if I can even specify where on the screen i want it to open and the size of that window. list and font are however more important.
Matt

Answer 1

Running the above script as you are aware works with no problems, I tried adapting it to me exist script where applescript creates the folder earlier so I referenced it with the same script and although no error there is no change on the folder.
I've tried to shorten the script here
set thePrefix to ""
set theWeekNumber to ""
set theMonth to ""
set thisDate to current date
---- your first week of the year is the third Monday of August
set theWeekNumber to ((thisDate - (my augustThirdWeek(thisDate))) div 604800) + 1
on augustThirdWeek(d) -- get the third monday of August
          copy d to tDate
          tell tDate
                    set {its day, its month, its time} to {15, 8, 0} -- start at August 15
                    repeat 2 times
                              repeat while (its weekday) is not Monday
                                        set its day to (its day) + 1 -- add one day (range 16 ... 21)
                              end repeat
                              if d < it then -- this date is older that the third Monday of August
                                        set {its day, its year} to {15, (its year) - 1} -- subtract one year
                              else
                                        return it
                              end if
                    end repeat
          end tell
end augustThirdWeek
set theWeekNumber to theWeekNumber
repeat
  --set theWeekNumber to do shell script "date -v+133d +%V"
          set theMonth to do shell script "date '+%m %B'"
          set quartersToUse to choose from list {"AW12", "AW13", "SS12", "SS13", "XMAS_2012"} with prompt "Choose the quarter."
          try
                    if theWeekNumber = "" then error
                    exit repeat
          on error
                    set thePrefix to "INVALID ENTRY!  "
          end try
end repeat
set bhsIcon to (((path to pictures folder) as text) & "Icons:Bhs.png") as alias
set bhs2doIcon to (((path to pictures folder) as text) & "Icons:Bhs2do.png") as alias
-- some more folder icons created here
set theBhs to "BHS_WK" & theWeekNumber
set theBurton to "Burton_WK" & theWeekNumber + 1
--some more folders created here
tell application "Finder"
          set theBHSFolder1 to make folder at (path to desktop) with properties {name:theBhs & theEnd}
          my (setCustomIcon from bhsIcon to the result)
          set desktop position of theBHSFolder1 to {50, 150}
          set theBHSFolder2 to make folder at (path to desktop) with properties {name:theEnd2 & theBhs}
          my (setCustomIcon from bhs2doIcon to the result)
  -- Some more like above
  --then I inserted your bit here
          set bhs2DoWindow to container window of theBHSFolder2
          set properties of theBHSFolder2 to ¬
                    {current view:list view, position:{100, 100}, bounds:{100, 100, 400, 300}}
          tell list view options of bhs2DoWindow to set properties to {text size:10}
end tell
--Then a custom Icon creation here
to setCustomIcon from imageFile to destination
          Set the icon of a destination file item to the image contained in imageFile
                    parameters -                    imageFile [various]:          an imagefile for the icon (Finder alias or POSIX text)
                                                  destination [various]:          a destination item to set to the icon (Finder alias or POSIX text)
                    returns [boolean]:          true if icon is set, false otherwise
          set imageFile to imageFile as text
          if imageFile starts with "/" then -- check for POSIX file
                    set imageFile to imageFile as POSIX file as alias
          else
                    set imageFile to imageFile as alias
          end if
          set destination to destination as text
          if destination does not start with "/" then -- check for POSIX file
                    set destination to POSIX path of destination
          end if
          try
                    tell application "Finder" -- copy the icon image to a temporary file
                              (duplicate imageFile to (path to temporary items) with replacing) as alias
                              set tempImage to quoted form of POSIX path of the result
                    end tell
                    set tempResource to quoted form of (POSIX path of (((path to temporary items) as text) & "TempResource"))
  do shell script "/usr/bin/sips -i " & tempImage -- add a Finder icon to the image
                    do shell script "/Developer/Tools/DeRez -only icns " & tempImage & " > " & tempResource -- get the icon resource
  do shell script "/usr/bin/file " & quoted form of destination -- determine the destination file type
                    if the result contains "directory" then -- folder
                              set theTarget to quoted form of (destination & "/Icon" & return) -- create Icon\r file
                              set Command to "rm " & theTarget & "; " -- remove any existing custom icon
                              set Command to Command & "/Developer/Tools/Rez -a " & tempResource & " -o " & theTarget & "; " -- add resource file to a folder
                              set Command to Command & "/Developer/Tools/SetFile -a V " & theTarget & "; " -- make it invisible
                    else -- file
                              set Command to "/Developer/Tools/Rez -a " & tempResource & " -o " & quoted form of destination & "; " -- add resource to a file
                    end if
                    set Command to Command & "/Developer/Tools/SetFile -a C " & quoted form of destination -- set custom icon attribute
  do shell script Command -- do it
          on error errmess number errnum -- oops
  log errmess
  -- display alert "Error " & errnum message errmess buttons {"OK"}
                    return false
          end try
          try -- remove temporary files
  do shell script "rm " & tempImage & space & tempResource
          end try
          tell application "Finder" to update (destination as POSIX file)
          return true
end setCustomIcon