書き込み制限にひっかかった。一部改行を取ってます
//!*script
if (PPx.EntryFirstMark != 1) { PPx.Echo('マークされたエントリがありません'); PPx.Quit(); }
var fso = new ActiveXObject('Scripting.FileSystemObject');
var listFile = PPx.Extract('%a'); var dir = PPx.Extract("%1");
for (;;) {
var oldName = dir + "\\" + PPx.EntryName;
for (;;) {
var newName = dir + "\\" + PPx.Extract("%{%R%|%}");
if (!newName || newName == "") {
PPx.Echo("名前が指定されていません。再指定してください。");
continue;
}
if (oldName == newName) { PPx.Echo("同じ名前です。スキップします。"); break; }
if (fso.FileExists(newName)) {
PPx.Echo(newName + " は既に存在します。再指定してください。");
continue;
}
if (fso.FileExists(oldName)) {
fso.MoveFile(oldName, newName);
break;
} else if (fso.FolderExists(oldName)) {
fso.MoveFolder(oldName, newName);
break;
} else {
PPx.Echo(oldName + " が見つかりません。スキップします。");
break;
}
}
if (PPx.EntryNextMark == 0) break;
}