15/02/10 00:22:02.25 CBJs6ZHK0
>>14
input ダイアログで隠れてリネーム状況が確認できないのでいまいちだけど一応投下しておく
「Enter」でリネーム後フォーカス移動、「ECS」でキャンセル、末端までいったら止まるはず
Script:JScript
var fs = new ActiveXObject('Scripting.FileSystemObject');
var tFile,gFile,iName,oName,gName;
(function renNext(){
tFile = WScript.Env('Focused');gFile = fs.GetFile(tFile);iName = gFile.Name;
if(WScript.Exec('Input:"名前の変更 - X-Finder","%current%","' + iName + '","' + iName + '"',1)){
oName = WScript.Env('InputData');
gFile.Name = oName;
WScript.Exec('Refresh:2',1);
WScript.Exec('Focus:Down',1);
tFile = WScript.Env('Focused');gFile = fs.GetFile(tFile);iName = gFile.Name;
if(iName != oName){
renNext();
}}
fs = null;
})();