in reply to File::Find

CPAN is your friend here. You want the Win32::DriveInfo module. Otherwise the root ('/' not '../', btw) of each drive volume is separate: C:, D:, etc. (enclosed sample code untested) 
use File::Find;
use Win32::DriveInfo;

for( Win32::DriveInfo::DrivesInUse )
{
   find( \&handleFind, "$_:" );
}

sub handleFind {... same as before ...}

[download]
UPDATE: Correct error in use of drive letter ':' is required

Note: installing Win32::DriveInfo requires installing Win32::API. The former is available only from CPAN, the latter is available as a PPM. Fortunately Win32::Drive info is pure Perl and can simply be copied to C:/perl/lib/site/lib/win32 and used from there.

Replies are listed 'Best First'.
Re: (ichi) Re: File::Find
by Util (Priest) on Jun 10, 2002 at 03:16 UTC
    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.
[reply]
[d/l]

In Section Seekers of Perl Wisdom