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

このエントリーをはてなブックマークに追加
540名無しさん@お腹いっぱい。
Script:JScript
var fs = new ActiveXObject("Scripting.FileSystemObject");
var cts = WScript.ToolFolder('%Current%');
var temptbl = new Array();
var path;
for(var i = 0; i < cts.Count; ++i) {
  path = cts.Item(i).Path.replace(/\"/g, '');
  if ( path in temptbl || !(fs.FileExists(path) || fs.FolderExists(path)) )
    cts.Delete(i--);
  else
    temptbl[path] = 1;
}