正規表現によるリネーム
function RenamebyReg(r1,r2) {
cSel = WScript.Col(WScript.Env('CurrentSelected'));
if (r2 == undefined) {r2 = '';} if (r1 == undefined) {WScript.Quit();}
oldpathes = ''; newpathes = '';
for (i in cSel) {
oldname = fs.GetBaseName(cSel.Item(i));ext = fs.GetExtensionName(cSel.Item(i));if (ext) {ext = '.' + ext;}
pf = fs.GetParentFolderName(cSel.Item(i));
newname = oldname.replace(new RegExp(r1, "g"),r2);
if (newname.toLowerCase() != oldname.toLowerCase()) {
oldpathes += '"' + pf + '\\' + oldname + ext + '"' + ' ';
newpathes += '"' + pf + '\\' + newname + ext + '"' + ' ';
}
}
WScript.Exec('Move: ' + oldpathes + '/t ' + newpathes + '/m /a /u /r');
}