Win32 Perl

  1. Home
  2. Perl
  3. Win32
  4. File all directories
use File::Find;
use Win32::File;
&File::Find::find(\&wanted,"C:\\httpd", "C:\\testing");
sub wanted{
      (Win32::File::GetAttributes($_,$attr)) &&
      ($attr & DIRECTORY) &&
      print "$File::Find::name\n";
}