10 lines
225 B
Perl
10 lines
225 B
Perl
|
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";
|
||
|
|
}
|