Удаление файлов по маске

var sStartFolderName = "C:\\Documents and Settings\\u0\\Рабочий стол\\Новая папка";
var g_objFS = new ActiveXObject("Scripting.FileSystemObject");
 
 
 
Walk_F(sStartFolderName);
Walk_D(sStartFolderName);
 
WScript.Quit();
 
 
 
//рекурсивно стирает файлы без символа "!" в начале имени
function Walk_F(sFolderName)
{
    var objFolder = g_objFS.GetFolder(sFolderName);
    var objE = new Enumerator(objFolder.Files);
 
    for (; !objE.atEnd(); objE.moveNext())
        if (objE.item().Name.charAt(0) != "!")
            g_objFS.DeleteFile(objE.item().Path);
 
 
    objE = new Enumerator(objFolder.SubFolders);
 
    for (; !objE.atEnd(); objE.moveNext())
        Walk_F(objE.item().Path);
}
 
 
 
//рекурсивно стирает каталоги без символа "!" в начале имени,
//и кроме того общий размер (с файлами) которых =0, т.е.
//если в этих каталогах будут пустые файлы (даже с "!" в начале имени)
//то они все равно будут стерты!!!
function Walk_D(sFolderName)
{
    var objFolder = g_objFS.GetFolder(sFolderName);
    var objE = new Enumerator(objFolder.SubFolders);
 
    for (; !objE.atEnd(); objE.moveNext())
        if (objE.item().Name.charAt(0) != "!" && objE.item().Size == 0)
            g_objFS.DeleteFolder(objE.item().Path);
 
 
    objE = new Enumerator(objFolder.SubFolders);
 
    for (; !objE.atEnd(); objE.moveNext())
        Walk_D(objE.item().Path);
 
}