>>11
カレントがフォルダ以外だとリネームできないケースがあるのでこちらに修正↓
〜〜〜〜
if(iName != oName){WScript.CreateObject("Shell.Application").NameSpace(pFolder).ParseName(fs.GetFileName(tItem)).Name = oName + fExt;}
に書き換える