Re: View every folder of a folder by name
Re: View every folder of a folder by name
- Subject: Re: View every folder of a folder by name
- From: Jolly Roger <email@hidden>
- Date: Tue, 17 Jul 2001 14:05:46 -0500
On 7/17/2001 8:42 AM, "Olivier Berquin" <email@hidden> wrote:
>
Hi all,
>
>
I would like to view every folder of a folder by name
>
>
I write this, but... must I open every folder
(snip)
>
Any idea ?
Try this (save as Application):
-- begin script
-- entry point for a droplet
on open (addedItems)
repeat with nextItem in addedItems
if (the last character of (nextItem as text) = ":") then
SetView(nextItem)
end if
end repeat
end open
on SetView(targetFolder)
-- possible view values:
-- {comments, creation date, kind, label, modification date, size,
version}
tell application "Finder"
activate
set view of container window of (folder targetFolder) to name
set folderList to FindFile in_folder targetFolder result_type "alis"
with folders -- uses FindFile OSAX
<
http://microcosmsoftware.com/findfileosax.html>
repeat with nextFolder in folderList
set view of container window of (folder nextFolder) to name
end repeat
end tell
end SetView
-- end script
(Watch for line wraps!)
HTH
JR