At 14.08 -0500 2000.02.18, David Ackerman wrote: >I hope someone can point me in the right direction with this. I'm trying >to use the FindFolder() function from Files.pm. It requires as the first >param the Volume ref number you wish to serach on. The only examples I >can fine use the kOnSystemDisk constant. However I need to search on >whatever volume the user saves another file to. I've looked through >Inside Macintosh and found the GetVRefNum () funtion, but can not find >that function documented in the perl toolbox modules. What is the >prefered method of getting the volume ref number in macperl? Well, here is a hack I came up with awhile back. #!perl -wl use Mac::Files; use Mac::MoreFiles; use strict; # ex 1 for my $vol (MacPerl::Volumes()) { print FindFolder(hex(substr($vol, 1, 4)), kTrashFolderType); } # ex 2 my $file = 'Bourque:Desktop Folder:mytestfile'; (my $vol = $file) =~ s/^(.*?:).*$/$1/; print FindFolder(hex(substr(MacPerl::MakeFSSpec($vol), 1, 4)), kTrashFolderType); __END__ That is, you can loop over MacPerl::Volumes() to get the VREF for each: #!perl -wl for my $vol (MacPerl::Volumes()) { (my $name = $vol) =~ s/^[^:]+://; printf "%-32s: %s\n", $name, hex substr $vol, 1, 4; } __END__ That should do it. -- Chris Nandor mailto:pudge@pobox.com http://pudge.net/ %PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6']) # ===== Want to unsubscribe from this list? # ===== Send mail with body "unsubscribe" to macperl-request@macperl.org