Help for this page

Select Code to Download


  1. or download this
    # MOVE ORIGINAL TO  ../Done/M-archiv

print "move $originalfilenamequantity 1.txt \n";

system("move $originalfilenamequantity ..");
  2. or download this
    my $dest = "$currentdir/.."; # means Z:/SALESD~1/LOGS/ORDERS
my $cmd = "move $originalfilenamequantity $dest";
system($cmd) == 0 or warn("Failed: $cmd");