php 批量替换文件名

一个文件夹中有上百个 类似IDR_WEB_BKG_PNG,IDR_WEB_BKG_XML,IDR_WEB_BKG_ICO,文件，一个一个手动更新后缀，太麻烦，就想用PHP批量更新，代码如下

$dir = 'D:\Program Files\resource\application\Skin\PNG\\';//注意这里的路径，最后要加两个\，第一个表示转意，但是这样容易遇到其他特定转义，还要仔细判断，可以写为如下方式
$dir = 'D:/Program Files/resource/application/Skin/PNG/';//写成这样的路径，就不用担心转义问题了。最后面的/不要漏写
if ($dh = opendir($dir)) 
{
while (($file = readdir($dh)) !== false) 
    {
if ($file != "." && $file != "..")
        {
if(filetype($dir . $file) == 'file')    
            {  
$newfile = str_replace(array('_PNG','_XML','_ICO'),array('.PNG','.XML','.ICO'), $file);    
var_dump($file.' =======> '.$newfile.'<br />');    
rename($dir . $file, $dir . $newfile);    
            }
        }
    }
closedir($dh);
}