12/03/05 16:35:34.93 ZmYr6jc40
>>47 >>428 >>434
このへんを参考に重複したアイテムとリンク切れをまとめて消すのを作ってみました
取り敢えず動いてますがもっといいのがあれば教えて下さい
Script:JScript
cr = WScript.Env('Current');
fs=new ActiveXObject("Scripting.FileSystemObject");
cTF=WScript.ToolFolder(cr);
for(i=0;i<cTF.Count;i++){
for(j=0;j<cTF.Count;j++){
str = cTF.Item(i).Path
str = str.replace(/\"/g,'');
if((i!==j)&&(cTF.Item(i).Path==cTF.Item(j).Path)){
cTF.Delete(j--);
}
else if(!(fs.FolderExists(str) || fs.FileExists(str))){
cTF.Delete(i--);
}
}
}