Help for this page

Select Code to Download


  1. or download this
    use strict;
use threads;
...
    $resp = `file_test.pl $path`;
    push (@source, "$path\t" . $resp);
}
  2. or download this
    #size_test.pl
use strict;
...
    print "Size: ".$size_gb."Mb ($size byte)";        
};
  3. or download this
    #file_test.pl
use Win32::OLE qw[in with];
...
    }
    print "Files: $fCount, folders: $sCount";        
};