follows previous posting -
applescript code
this will set the finder windows for all windows, recursively
drag the drive (or folder) you want to set onto the applescript
wait a bit - seconds for a simple folder, minutes for an entire drive
to make the applescript:
open script editor
copy the code below
paste into a new empty script window
save as an application
Martin Trautmann wrote:
> Hi all,
>
> ist there any Chance to configure the Finder the way *I* feel it's
> reasonable?
>
> I suppose I tried every option how to create a reasonable default view,
> applying it for all. This should be
>
> List view with
>
> Name kind size mod.date creat.
> up to30 chars type 12 MB 2005-02-17 10:40 2004-12-31
>
>
> However, the default ist
>
> 1) lots of space for the name
> 2) long mod. date format, using relative dates
> 3) long creation date format, ""
> 4) kind
> 5) size
>
> (I'm not very sure about 4-5 or 5-4 at the moment)
>
>
> How do I set the desired display as default for every folder, own ones
> or external, old and new?
>
> The Finder just does not behave as expected: I do have the option to set
> a checkbox in order to use the current setup as default for every folder,
> but it just does not work. Is this a Finder bug? OSX: 10.3.8
> Is there any obvious or hidden way (resource hack, /etc/configuration,
> AppleScript manipulation, ...) how to get this done?
>
>
> Thanks,
> Martin
-- written by Ben Waldie
-- a few changes by Camelhump
-- this script will set the folder (or disk) dropped on it
-- and all of its sub folders:
-- to list view
-- sets the name column to 200 (pixels) in width - see nameclumnwidth
-- sets the date column to 90 pixels in width - this work best with
absolute dates, not relative dates - see datecolumnwidth
-- sets the window size to 300 (wide) by 400 (tall) pixels (see
commonwindowbounds for these values)
-- will cascade (with the offset being 15 pixels - see amounttocascade -
subfolder windows
property commonWindowBounds : {10, 50, 300, 400} -- The initial bounds
for the windows
property amountToCascade : 15 -- The amount you'd like to cascade the
sub-windows
property nameColumnWidth : 200 -- The width of the name column
property dateColumnWidth : 90 -- The width of the date column
-- Main Routines
on open theList
set theOpenedWindows to getOpenedWindows()
repeat with a from 1 to (count theList) -- for all items in the directory
set cItem to (item a of theList)
if isFolder(cItem) then -- is this a folder? if so process
setSubFoldersView({cItem}, commonWindowBounds) -- Sets the view of
the current folder
SetViews(cItem, commonWindowBounds) -- set the window and column sizes
end if
end repeat
openFolders(theOpenedWindows) -- get more folders
end open
on SetViews(theFolder, theBounds)
if amountToCascade ≠ 0 then -- is there an offset desired
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) -- get this folders
dub folders
SetViews(item a of theSubFolderList, theBounds)
end repeat
end SetViews
on setSubFoldersView(theVal, theBounds)
openFolders(theVal)
if countWindows() = 0 then return -- if there are no windows exit
setWindowsProperties(theBounds) -- set window size
setWindowsColumnWidth(nameColumnWidth, dateColumnWidth) --set columna
widths
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") or
(kind of thePath = "volume")
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}
tell application "Finder" to set properties of every window to {toolbar
visible:false}
end setWindowsProperties
on setWindowsColumnWidth(thenameWidth, thedatewidth)
tell application "Finder" to set width of column name column of list
view options of every window to thenameWidth
tell application "Finder" to set width of column modification date
column of list view options of every window to thedatewidth
end setWindowsColumnWidth
>> Stay informed about: Finder: configure the view the way I like it 
FAQ
Search
Profile
Private Messages
Log in
