Re: [MacPerl] Re:FindFolder puzzler

[robinmcf@altern.org]

Thanks Brian, Ronald and David I have finally got it. If that seemed like
an uphill struggle just wait until I try something really complicated :-)


>>So you can see, FindFolder is working as advertised, returning the path.
>>Then you are going the extra mile with your call to print $file and
>>getting the type too.

rather unsurprisingly by passing the file type to FileFind() I get the path
(which is what I'm doing obliquely with those LongFolderType() chappies),
and due to my total misdesign I have been able to dispense with the
LongFolderType() names and I can just draw on the list of folder types I've
managed to create  which saves on typing if anything and might even address
the following issues:

>And I think it's no longer the paths to *all* the standard folders, which
>now include the Applications and Documents folders (Documents is more
>important in Mac OS 9 than it has been since OpenDoc bit the dust), the
>Scripting Additions folder (the one in the System Folder, not the obsolete
>one in Extensions) and several others.

inshort get the foldertype code if this is what you want to do


In the hope that this whole sorry deal might end positivly by getting
included in the toolbox section of the "all new PODs =81" - see the revised
editon of the script below

__BEGIN__
#! perl -w
use diagnostics-verbose;
use strict;
#-=3D-=3D-=3D-=3D-=3DDeclare Includes-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=
=3D-=3D
use Mac::Files;
use File::Find;
#-=3D-=3D-=3D-=3D-=3DDeclare Variables-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=
=3D

my ($path,$folder,$filetype,@StdFolderTypes);

#-=3D-=3D-=3D-=3D-=3DScript Body-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=3D-=
=3D-=3D-=3D

#loop method

@StdFolderTypes=3Dqw(amnu
=09    shdf
=09    ctrl
=09    strt
=09    desk
=09    macs
=09    extn
=09    temp
=09    font
=09    trsh
=09    pref
=09    );

foreach $filetype (@StdFolderTypes) {
=09$path=3DFindFolder(kOnSystemDisk(),$filetype);

=09print "file type: $filetype \tpath: $path\n";

=09 }
__END__

# =3D=3D=3D=3D=3D Want to unsubscribe from this list?
# =3D=3D=3D=3D=3D Send mail with body "unsubscribe" to macperl-request@macp=
erl.org