Help for this page

Select Code to Download


  1. or download this
    print "copy $file, $archiveFileName\n";
copy ($file, "C:\\data\\app\\AppSpecific1\\Archive\\".$archiveFileName
+) or die "Copy failed: $!";
  2. or download this
    #!perl
use strict;
...
}

closedir $dh;