Help for this page

Select Code to Download


  1. or download this
    #! Path to perl.exe -w
use strict;
...
  print $File::Find::name, $/ if -f _;
},$data{path};
  2. or download this
    
drive\folers1
...
    .
    .
    .
  3. or download this
    find sub {
  print $File::Find::name, $/ if -f _;
},$data{path};
  4. or download this
    my $file_stat = stat ($File::Find::name);
print $creation_date;
...
print $Full_file_path;
print $file_size