Any way to apply AppleScript into subfolder for windows properties?

Question

I'm using the AppleScript below to set window's position and columns' widths to my liking. But I can only one window at a time. Is there a way to apply this script to all the subfolders? Automator can set window view to subfolders but can't set window's position and columns' widths.
Any help or suggestion? Thanks
tell application "Finder"
activate
set bounds of Finder window 1 to {top, left, window width, window height}
select Finder window 1
set width of column id name column of list view options of Finder window 1 to 450
set width of column id modification date column of list view options of Finder window 1 to 150
set width of column id size column of list view options of Finder window 1 to 100
end tell

Answer 1

You can open Finder windows for all of the subfolders of the front window, then loop through each one making your settings. Since this approach will also change the settings for any other open Finder windows, in my example script I just close all but the front window. Your example script doesn't use correct terminology for the bounds of Finder windows, so change the numbers I used for the bounds as desired:
<pre style="
font-family: Monaco, 'Courier New', Courier, monospace;
font-size: 10px;
margin: 0px;
padding: 5px;
border: 1px solid #000000;
width: 720px;
color: #000000;
background-color: #FFEE80;
overflow: auto;"
title="this text can be pasted into the Script Editor">
set {TheLeft, TheTop, TheRight, TheBottom} to {50, 50, 900, 500} -- a Finder window bounding rectangle
tell application "Finder"
try -- skip if no window
set TheWindows to (count Finder windows)
if TheWindows is greater than 1 then -- close other windows
repeat with SomeWindow from TheWindows to 2 by -1
close window SomeWindow
end repeat
end if
open folders of entire contents of (get target of window 1) -- all
-- open folders of (get target of window 1) -- one level
on error errmess
log errmess
end try
repeat with SomeWindow in (get Finder windows)
set bounds of SomeWindow to {TheLeft, TheTop, TheRight, TheBottom}
set width of column id name column of list view options of SomeWindow to 450
set width of column id modification date column of list view options of SomeWindow to 150
set width of column id size column of list view options of SomeWindow to 10
end repeat
end tell</pre>