10/05/21 18:39:54 raU8u7pU0
>>97用
フォルダ内の先頭のjpgをフォルダのサムネイルに設定するランチャ
es.exeを%X-Finder%に置いてるものとして
Script:JScript
fs = new ActiveXObject('Scripting.FileSystemObject');
ws = new ActiveXObject('WScript.Shell');
ws.CurrentDirectory = WScript.Env('X-Finder');
cSel = WScript.Col(WScript.Env('Selected'));
for (i = 0; i < cSel.Count; i++) {
if (fs.FolderExists(cSel.Item(i))) {
list = WScript.Env('Temp') + '\\' + fs.GetFileName(cSel.Item(i)) + '.txt'
ws.Run('cmd /c es -s \"' + cSel.Item(i) + '\\\*\.jpg\" > \"' + list + '\"', 0, true);
if (fs.GetFile(list).Size) {
read = fs.OpenTextFile(list, 1);
thum = read.ReadLine();
read.Close();
WScript.Exec('Thumbnail: "' + thum + '" "' + cSel.Item(i) + ':thumbnail.jpg"');
}
fs.DeleteFile(list);
}
}
自分では絶対使いそうもないからどこか問題あったら誰か教えて。
ところで11-6-56になって、ツールフォルダのプロパティでホイールでスクロールさせると
裏のリストビューがスクロールすることが(;´Д｀)ﾊｧﾊｧ