Re: (ichi) Re: File::Find


The stupid question is the question not asked
	PerlMonks

Re: (ichi) Re: File::Find

by Util (Priest)

on Jun 10, 2002 at 03:16 UTC ( [id://173029]=note: print w/replies, xml )

Need Help??

in reply to (ichi) Re: File::Find
in thread File::Find

I agree, Win32::DriveInfo is best.
As we just discussed here, this code also works:

use File::Find;
use Win32API::File qw( :Func :DRIVE_ );

my @drives = map { tr{\\}{/}s; $_ }
             grep { GetDriveType($_) == DRIVE_FIXED }
             getLogicalDrives();

find( sub {
  $File::Find::prune = 1, return
    if $File::Find::name =~ m{^.:/System Volume Information$};
  print "$_\n";
}, @drives );
[download]

Perhaps someone will find it useful when Win32API::File is at hand, but Win32::DriveInfo is not.