Re: Folder colours
Re: Folder colours
- Subject: Re: Folder colours
- From: Michelle Steiner <email@hidden>
- Date: Fri, 16 Mar 2001 10:17:19 -0800
On 3/15/01 4:59 PM, Mark Gibson <email@hidden> wrote:
>
I have a client who has had staff allocate all sorts of File Labels
>
(colours) to folders over time.
>
>
He now wants them all to be set to none (i.e. original).
>
>
Is there any way I can do this easily via a script that no only
>
changes the top level folders but all the nested ones as well?
This will work for the startup disk. It should be easy to modify it for
other volumes.
--Michelle
tell application "Finder"
set topLevel to the startup disk as alias
my labelize(topLevel)
end tell
to labelize(aFolder)
tell application "Finder"
set the label index of aFolder to 0
set containedFolders to items of aFolder whose kind is "folder"
repeat with currentfolder in containedFolders
my labelize(currentfolder)
end repeat
end tell
end labelize
----------------------------------------------------------------------
| Michelle Steiner | We're not human beings having a spiritual |
| | experience. We're spiritual beings |
| email@hidden | having a human experience. |
----------------------------------------------------------------------