Help for this page

Select Code to Download


  1. or download this
    use File::Find;
    my @dir = 'Y:/mis/';  
    my @path;
    find sub { push @path, $File::Find::name if -f }, @dirs; 
    
    return @path;