There you go. I knew there had to be something out there, I just haven't been desperate enough to find it yet.
-----Original Message----- From: Chuck Lawhorn [mailto:[EMAIL PROTECTED]] Sent: Monday, April 01, 2002 12:44 PM To: [EMAIL PROTECTED] Subject: RE: Copying Sub-Directories Take a look at the File::Recurse module. --Chuck --- Timothy Johnson <[EMAIL PROTECTED]> wrote: > > The major thing to remember when porting xcopy statements to NT4 is that the > /y switch doesn't work with NT4. As for the subdirectories, this might > give you a start. It's some code I wrote when I was first figuring out how > to recurse through subdirectories. It works fairly well, although a truly > recursive subroutine would probably be faster. > > @dirs = @ARGV; #Must be full path! > foreach $dir(@dirs){ > if($dir !~ /\\$/){ > $dir .= "\\"; > } > print "READING $dir...\n\n"; > opendir(DIR,$dir) || print "Could not open $dir!"; > @dir = readdir(DIR); > closedir(DIR); > foreach $file(@dir){ > unless($file eq "." || $file eq ".."){ > if(-e $dir.$file && -d $dir.$file){ > print "DIR -- ".$dir.$file."\n"; > push @dirs,$dir.$file."\\"; > }elsif(-e $dir.$file){ > print "FIL -- ".$dir.$file."\n"; > }else{ > print "Error\: No such file -- > ".$dir.$file."!\n"; > } > } > } > undef @dir; > } > > -----Original Message----- > From: rAuL [mailto:[EMAIL PROTECTED]] > Sent: Monday, April 01, 2002 11:18 AM > To: Edgington, Jeffrey > Cc: rAuL; [EMAIL PROTECTED] > Subject: RE: Copying Sub-Directories > > > This would not do becuase I once had a situation where the verswion of XCOPY > on Windows 2000 was different from the one with NT 4.0. > > On 01 Apr 2002, Edgington, Jeffrey wrote: > > > I would use xcopy though. > > > > system ("xcopy <source> <dest> \/E \/-Y"); > > > > /E - copies dirs and subdirs including > > empty ones. > > > > /-Y -no prompting when overwriting > > > > Just do 'xcopy /?' at a cmd to look at > > additional options for copy. > > > > jeff e. > > > > > > > > -----Original Message----- From: rAuL > > [mailto:[EMAIL PROTECTED]] Sent: Monday, > > April 01, 2002 1:02 PM To: > > [EMAIL PROTECTED] > > Subject: Copying Sub-Directories > > > > > > > > Much to my surprise and inexperience, I cannot > > find a Perl command to do wilcard copying of > > files and subdirectoies within a directory. Is > > there such a thing? > > > > Thanks > > _____________________________________________- > > __ > > Perl-Win32-Admin mailing list > > [EMAIL PROTECTED] To > > unsubscribe: http://listserv.ActiveState.com/- > > mailman/mysubs > _______________________________________________ > Perl-Win32-Admin mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs > > > ---------------------------------------------------------------------------- ---- > This email may contain confidential and privileged > material for the sole use of the intended recipient. > If you are not the intended recipient, please contact > the sender and delete all copies. > _______________________________________________ > Perl-Win32-Admin mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs __________________________________________________ Do You Yahoo!? Yahoo! Greetings - send holiday greetings for Easter, Passover http://greetings.yahoo.com/ _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs -------------------------------------------------------------------------------- This email may contain confidential and privileged material for the sole use of the intended recipient. If you are not the intended recipient, please contact the sender and delete all copies. _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
