note
gawatkins
<p>In addition to the suggestion for <code>File::Copy</code>
you could use the system move command:</p>
<code>
opendir (DIRHANDLE, $OLDDIR);
while ($oldname = readdir(DIRHANDLE))
{
chomp $oldname;
$filename = "$OLDDIR\\$oldname";
$newname = "$DIR\\$oldname";
if (-f $filename)
{
system("move", $filename, $newname);
}
}
closedir (DIRHANDLE);
</code>
<p> Just a diffrent way to do it.<br>
Greg W</p>
369148
369148