Script to copy files from one folder to another

[AngeB]

Hi, I'm looking for a script to copy transaction log backup files from a network drive I have mapped to a local folder. Part of the filenames are common

dbname_tlog_datehour.trn (date is formated y/m/d and is 24 hour format ex: 1600, 1700, 1800....)

I've searched some perl forums and found a few scripts to try but haven't had any luck getting this working. Any help is appreciated.

[eWish]

We don't have any scripts. Do you know perl? Have to tried to write the code yourself? Are you having problems with your code?

--Kevin

[AngeB]

Thanks for the reply Kevin. I know very little perl. I forgot to post the code that I was trying to get working. I managed to figure to figure it out. I'll make sure to post the code and error next time.

Ange

[Icecrack]

Here is one i made and use.

use File::Copy;
 
$dir="\\\\Server\\logs\\"; # make sure you add the backslashes on the last directory
opendir(DIR, $dir) or die "can't opendir $dir: $! \n";
 
@files=readdir(DIR);
closedir DIR;
 
foreach $file (@files) {
  if (-f "$dir$file") {  
 
$moveloc="C:\\backup\\logs\\$file"; # Make sure the directory is already made.
$old = "$dir$file";
$new = "$moveloc";
copy($old, $new) or die "Copy Faild: $!";