--here yer go, save as applet
on open theList
my SetView(theList)
end open
on SetView(theViewList)
tell application "Finder"
try
repeat with theItem in theViewList
if the kind of theItem is "folder" then
open theItem
set view of theItem to name
set shows modification date of theItem to false
set shows creation date of theItem to false
set shows size of theItem to false
set shows kind of theItem to false
set shows label of theItem to false
set shows comments of theItem to false
set shows version of theItem to false
set zoomed of container window of theItem to true
close theItem
set theFolderContents to the contents of theItem
my SetView(theFolderContents)
end if
end repeat
on error errMsg number errNum
end try
end tell
end SetView