文件 DelEmpt.js 代碼：
//Function: Delete empty folders inside on folder, including/excluding zero-size folders.
//Version: 1.0
//Author: ibic.
/*用法說明：
**1。將此教本放入想要?jiǎng)h除的文件夾里，雙擊此腳本。
**－－或者－－
**2。將想要?jiǎng)h除的文件夾拖到這個(gè)腳本的圖標(biāo)上。
**！注意！：
**此腳本默認(rèn)將刪除只含有0大小的文件的文件夾，如果想保留這種文件夾，請將最后一行改為：
**DelEmptExc(f);
*/
//Recursively delete empty folders EXCluding zero-size files.
function DelEmptExc(thefolder)
{
var fso, f, fsub;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(thefolder);
if(f.Size == 0)
{
fsub = new Enumerator(f.SubFolders);
if(fsub.atEnd()) //Contains no subfolder.
{
fsub = new Enumerator(f.Files);
if(fsub.atEnd()) //Contians no files.
f.Delete(true);
}
}
else
{
fsub = new Enumerator(f.SubFolders);
for(; !fsub.atEnd(); fsub.moveNext())
DelEmptExc(fsub.item());
}
}
//Recursively delete empty folders INCluding zero-size files.
function DelEmptInc(thefolder)
{
var fso, f, fsub;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(thefolder);
if(f.Size == 0) //If the folder size is zero, delete the folder directly without recursing.
f.Delete(true);
else
{
fsub = new Enumerator(f.SubFolders);
for(; !fsub.atEnd(); fsub.moveNext())
DelEmptInc(fsub.item());
}
}
//The script entry is here.
var f;
if(WScript.Arguments.length == 0)
f = "."; //If no args, delete in the current directory.
else
f = WScript.Arguments(0); //Else, delete the specified directory.
DelEmptInc(f); //Change this line if you want to change the deleting behavior.
|
