タブファイラー・X-Finder [ x ] Part38

2画面タブ分割型でマウスジェスチャ等の多彩なランチャを持つタブファイラー。
エクスプローラ互換モードを使用すれば、エクスプローラと同じ動作も可能。
画像ビューアやタブブラウザ、簡易テキストエディタとしても使用可能。

質問の前には、以下のまとめサイト、手引書、備忘録をひと通りご覧ください。
あらゆる機能やカスタマイズのテクニックが掲載されています。

■前スレ
タブファイラー・X-Finder [ x ] Part37
https://egg.5ch.net/test/read.cgi/software/1675285588/

■公式
ファイルブラウザ・X-Finder
http://www.eonet.ne.jp/~gakana/
Twitter
https://twitter.com/tablacus
X-Finder まとめサイト
http://www29.atwiki.jp/xfinder/
X-Finder 12 Gaku
http://www.eonet.ne.jp/~gakana/xf.html
Vector > X-Finder
http://www.vector.co.jp/soft/win95/util/se320392.html
https://twitter.com/5chan_nel (5ch newer account)
https://twitter.com/thejimwatkins

いちおつ

Windows11で最近メモリ書き込みエラー連発してほぼ使い物にならなかったけどリカバリしたら安定
まだいける

899 出た

まさかスレ立ってると思わなかったわ
もう終わりでよかったろ

まだまだ終わらんよ

最近win11にしたのだけど Script:JScript て対応してないの？
昔教えてもらった指定したファイルの入れ替えリネームとピリオド削除が使えなくなったわ
あと画像ファイルを叩いても無反応だけど
こっちはランチャーでアプリに送る感じで使ってるからさほど困ってないが

普通に使えてるけど具体的にコマンドか元レスでも押してくれないことには助言のしようが

質問です
ファイル名を次々にリネームする方法として以下のランチャを使用しているのですが、
綴りは同じのまま大文字小文字を変更したい場合一旦別の名前への変更がいるのですが
一度の入力で済ませることはできないでしょうか

Script:JScript
// ext = 'on' でファイル拡張子付き、 ext = 'off' で拡張子なし
var ext = 'off', fs = new ActiveXObject('Scripting.FileSystemObject'),
cd,pFolder,tItem,objItem,iItem,oItem,iName,oName,fExt;
(function renNext(){try{
fExt = '';cd = WScript.Env('Current');tItem = WScript.Env('Focused');pFolder = fs.GetParentFolderName(tItem);
if(fs.FolderExists(tItem)){objItem = fs.GetFolder(tItem);iName = objItem.Name;
}else{objItem = fs.GetFile(tItem);
if(ext == 'on'){iName = objItem.Name;}else{fExt = '.' + fs.GetExtensionName(tItem);iName = WScript.Env('FocusedName');}}
if(WScript.Exec('Input:"名前の変更 - X-Finder","' + pFolder + '","' + iName + '","' + iName + '"',1)){
oName = WScript.Env('InputData');
if(iName != oName){objItem.Name = oName + fExt;}
if(!cd.match(/^extra/i)||cd.split('\\').length>1){WScript.Exec('Refresh:2',1);}
WScript.Exec('Focus:Down',1);iItem = pFolder + '\\' + oName + fExt;oItem = WScript.Env('Focused');
if(iItem != oItem){renNext();}}}catch(e){}fs = null;objItem = null;})();

下から4行目の
if(iName != oName){objItem.Name = oName + fExt;}
を
if(iName != oName){WScript.CreateObject("Shell.Application").NameSpace(cd).ParseName(fs.GetFileName(tItem)).Name = oName + fExt;}
に書き換える

>>10
希望していた動作になりました
ありがとうございます！