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

**名無しさん＠お腹いっぱい。** · 2023/11/25(土) 09:06:39.51

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

**名無しさん＠お腹いっぱい。** · 2023/11/25(土) 16:38:13.48

いちおつ

**名無しさん＠お腹いっぱい。** · 2023/11/27(月) 17:07:35.63

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

**名無しさん＠お腹いっぱい。** · 2023/11/30(木) 05:10:38.94

899 出た

**名無しさん＠お腹いっぱい。** · 2023/12/10(日) 18:59:38.07

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

**名無しさん＠お腹いっぱい。** · 2023/12/11(月) 21:51:40.42

まだまだ終わらんよ

**名無しさん＠お腹いっぱい。** · 2023/12/13(水) 18:25:09.88

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

**名無しさん＠お腹いっぱい。** · 2023/12/14(木) 13:54:02.38

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

**名無しさん＠お腹いっぱい。** · 2023/12/27(水) 18:06:51.03

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

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;})();

**名無しさん＠お腹いっぱい。** · 2023/12/27(水) 20:51:41.96

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

**名無しさん＠お腹いっぱい。** · 2023/12/27(水) 21:53:53.81

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

**名無しさん＠お腹いっぱい。** · 2023/12/27(水) 22:08:52.13

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