in reply to Re: Copy Database to another location
in thread Copy Database to another location
use strict; my $listFile = "C:\\theDoc.doc"; my $listFile2 = "\\\\theinfoServer\\dir\\"; open(LIST, $listFile) || die "Cant open $listFile : $!"; while(<LIST>) { #Can I put a Exception statement for this system command? I am not +familiar with Exceptions in Perl system("copy $listFile $listFile2 > nul"); } close(LIST); print "Successfully copied\n";
|
|---|