> -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of > John Deretich > Sent: Thursday, November 13, 2003 10:27 AM > To: Perl-Win32-Admin-Request (E-mail) > Subject: copy files and directories > > > Hello, > > can anyone tell me how to do > a complete copy of files and directories > from one directory to another? > I tried system('copy g:\*.* F:\test\test2') > with no success. > > thanks, >
Avoid platform dependency and use File::Ncopy available on ppm use File::NCopy qw(copy); my $fc = File::NCopy->new(recursive => 1); my $source = "d:/dir1"; my $dest = "c:/dir2"; die "nonesuch $source" unless(-d $source); die "nonesuch $dest" unless(-d $dest); $fc->copy($source, $dest) or die "Problem copying - $!\n"; Note $dest must exist. HTH - Lynn. _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
