- タブファイラー・X-Finder [ x ] Part30
104 ：名無しさん＠お腹いっぱい。[]：2012/07/24(火) 02:24:54.93 ID:Gr+LGWPO0 - fs=new ActiveXObject("Scripting.FileSystemObject");
WScript.Exec('Select:Clear',1);
cbr=WScript.Env('Clipboard');
cbi=cbr.split(/\n/);
rc=cbi.length;
for(i=0;i<rc;i++){
WScript.Exec('Select:andNext',1)
}
csi=WScript.Col(WScript.Env('CurrentSelected'));
if(csi.Count==rc){
for(i=0;i<rc;i++){
WScript.Exec('SW:0:%ComSpec% /c ren "'+csi.Item(i)+'" "'+((cbi[i].replace(/[\\/:*?"<>|]/g,"")).replace(/[ \t]+/g," ").replace(/^ /g,"")).substring(0,240)+'.'+fs.GetExtensionName(csi.Item(i))+'"',1)
}
}else{
WScript.Echo('カーソル以下のアイテム数が足りません。（必要数 : '+rc+'）')
}
|