yes -
this apple script will change ALL folders/disks and their subfolders
dropped on it to list view.
Unfortunately Apple broken the GUI on one point with 10
children folders do NOT inherit from parents - specifically view and
size/placement
anyhow copy and paste this into Script Editor, save as an application -
drop folders etc on it -
If you do an entire disk - expect 20-40 minutes as Apple requires a
window to be opened before the view can be set.
last note: - this is script is most effective in Jaguar -
I'll post an updated one for Panther later - a few other 'tricks' in
that one.
Code follows::
property commonWindowBounds : {10, 50, 340, 450} -- The initial bounds
for the windows
property amountToCascade : 10 -- The amount you'd like to cascade the
sub-windows
property nameColumnWidth : 300 -- The width of the name column
-- Main Routines
on open theList
set theOpenedWindows to getOpenedWindows()
repeat with a from 1 to (count theList)
set cItem to (item a of theList)
if isFolder(cItem) then
setSubFoldersView({cItem}, commonWindowBounds) -- Sets the view of
the current folder
SetViews(cItem, commonWindowBounds)
end if
end repeat
openFolders(theOpenedWindows)
end open
on SetViews(theFolder, theBounds)
if amountToCascade > 0 then
set theBounds to {(item 1 of theBounds) + amountToCascade, (item 2 of
theBounds) + amountToCascade, (item 3 of theBounds) + amountToCascade,
(item 4 of theBounds) + amountToCascade}
end if
setSubFoldersView(theFolder, theBounds) -- Sets the view of the current
folder's subfolders
set theSubFolderList to getFolderList(theFolder)
repeat with a from 1 to (count theSubFolderList)
SetViews(item a of theSubFolderList, theBounds)
end repeat
end SetViews
on setSubFoldersView(theVal, theBounds)
openFolders(theVal)
if countWindows() = 0 then return
setWindowsProperties(theBounds)
setWindowsColumnWidth(nameColumnWidth)
closeWindows()
end setSubFoldersView
-- Finder Routines
on getOpenedWindows()
tell application "Finder" to return folder of every window
end getOpenedWindows
on countWindows()
tell application "Finder" to count windows
end countWindows
on closeWindows()
tell application "Finder" to close every window
end closeWindows
on isFolder(thePath)
tell application "Finder" to return kind of thePath = "folder"
end isFolder
on getFolderList(theFolder)
tell application "Finder" to return every folder of theFolder
end getFolderList
on openFolders(theVal)
tell application "Finder"
if (class of theVal) = list then
open theVal
else
open every folder of theVal
end if
end tell
end openFolders
on setWindowsProperties(theBounds)
tell application "Finder" to set properties of every window to {current
view:list view, bounds:theBounds}
end setWindowsProperties
on setWindowsColumnWidth(theWidth)
tell application "Finder" to set width of column name column of list
view options of every window to theWidth
end setWindowsColumnWidth
leo wrote:
>
>>
>>
>>>do you know how i can change the _default_ to column view?
>>
>>Yes. Finder Preferences, General pane, click "Open new Windows in
>>column view"
>
>
> well, that does not work: i have set this option, but double-clicking a
> folder (whose parent is presented eg. in list view) shows the folder in
> icon view. :-(
>
> and that are folders i have never opened before, so the shouldn't have set
> an individual option.
>
> any clue?
>
> cheers, leo
>
>
> >> Stay informed about: how to set default view in finder?