Удаление файлов определенного расширения с ведением протокола Ms Word или Excel (WSH)

// файл протокола
var fPr = "c:/protocol.xls" // или "c:/protocol.doc"
var lExcelWord;             // true - Excel, false - Word, выясним по расширению файла протокола
 
// константы для Excel
var xlCellTypeLastCell = 11
var xlNormal = -4143
var xlCenter = -4108
 
// константы для Word
var wdCell = 12
var wdFormatDocument = 0
 
// Игнорировать различие регистра в именах файлов, тогда FileName.Tmp, filename.tmp и FILENAME.TMP, одинаковые
var lIgnoreCase = true;
var lCase = false;  // true - в верхний регистр, false - в нижний
 
var oExtApp, oAppBookDoc, iR; // Excel/Word object - Application, WorkSheet, WorkBook, Row
 
var oArgs = WScript.Arguments;
 
if (oArgs.length == 0) {
// Для переименования, вроде бы по условиям задачи этого не нужно
  WScript.Echo("Не указано параметры - расширение файлов для удаления/переименования");
  WScript.Quit();
}
 
var sExt = ((lIgnoreCase) ? oArgs(0).toUpperCase() : oArgs(0));
// Проверка расширения, обработка ошибок отсутствует!
lExcelWord = (fPr.lastIndexOf(".xls") > 0);
 
if (lExcelWord) {
  var oExtApp = new ActiveXObject("Excel.Application");
  oExtApp.SheetsInNewWorkbook = 1;
  var oAppBookDoc = oExtApp.Workbooks.Add();
 
  iR = 1;
  with (oExtApp) {
    Cells(iR,1).value = "Файл";
    Cells(iR,2).value = "Дата создания";
    Cells(iR,3).value = "Действие";
    Cells(iR,4).value = "Верхний регистр";
    Cells(iR,5).value = "Нижний регистр";
    Range(Cells(iR,1), Cells(iR,5)).Font.Bold = true;
    Range(Cells(iR,1), Cells(iR,5)).HorizontalAlignment = xlCenter;
  }
} else {
  var oExtApp = new ActiveXObject("Word.Application");
  var oAppBookDoc = oExtApp.Documents.Add();
  oAppBookDoc.Tables.Add(oAppBookDoc.Range(0,0), 1, 5); // таблица из пяти колонок
  with (oExtApp.Selection) {
    Font.Size = 10;
    Font.Bold = true; TypeText("Файл");           MoveRight(wdCell);
    Font.Bold = true; TypeText("Дата создания");  MoveRight(wdCell);
    Font.Bold = true; TypeText("Действие");       MoveRight(wdCell);
    Font.Bold = true; TypeText("Верхний регистр");MoveRight(wdCell);
    Font.Bold = true; TypeText("Нижний регистр");
  }
}
 
ProcessFiles(".");
 
// Для Excel - подравняем ширину колонок
if (lExcelWord) {
  for (var i=1; i <=oExtApp.Cells.SpecialCells(xlCellTypeLastCell).Column ; i++)
  oExtApp.Columns(i).EntireColumn.AutoFit()
}
 
oExtApp.DisplayAlerts = false;
oAppBookDoc.SaveAs(fPr, (lExcelWord ? xlNormal : wdFormatDocument));
oExtApp.DisplayAlerts = true;
oExtApp.Quit();
 
 
function ProcessFiles(pF) {
  var fso, fld, fc, f, sName;
  fso = new ActiveXObject("Scripting.FileSystemObject");
  fld = fso.GetFolder(pF);
  // каталоги
  for (fc = new Enumerator(fld.SubFolders); !fc.atEnd();  fc.moveNext()) {
    ProcessFiles(pF + "/" + fc.item().name);
  }
  // файлы
  for (fc = new Enumerator(fld.files); !fc.atEnd(); fc.moveNext()) {
    f = fso.GetFile(pF + "/" + fc.item().name);
    sName = (lIgnoreCase) ? (fc.item().name).toUpperCase() : fc.item().name;
 
    iR += 1;
    if (lExcelWord) {
      oExtApp.Cells(iR,1).value = pF + "/" + fc.item().name;
      oExtApp.Cells(iR,2).value = f.DateCreated;
    } else {
      with (oExtApp.Selection) {
        MoveRight(wdCell);  Font.Bold = false;
        TypeText(pF + "/" + fc.item().name);
        var d = new Date(f.DateCreated);
        with (d) {
          MoveRight(wdCell);  Font.Bold = false;
          TypeText(d.getDate() + "." + (getMonth() + 1) + "." + d.getYear());
        }
      }
    }
    if (sName.lastIndexOf(sExt) + sExt.length == sName.length) {  // расширение найдено и точно в конце имени файла
      // Запись в протокол
      WScript.Echo("Будет удален/переименован! -> " + pF + "/" + fc.item().name);
      if (lExcelWord) {
        with (oExtApp) {
          Cells(iR, 3).value = " <- Будет удален/переименован";
          Cells(iR, 4).value = (pF + "/" + fc.item().name).toUpperCase();
          Cells(iR, 5).value = (pF + "/" + fc.item().name).toLowerCase();
        }
      } else {
        with (oExtApp.Selection) {
          MoveRight(wdCell);  Font.Bold = false;  TypeText(" <- Будет удален/переименован");
          MoveRight(wdCell);  Font.Bold = false;  TypeText((pF + "/" + fc.item().name).toUpperCase());
          MoveRight(wdCell);  Font.Bold = false;  TypeText((pF + "/" + fc.item().name).toLowerCase());
        }
      }
 
//    f.Delete();     // для удаления убрать слеши в начале строки
 
//    для переименования поиск расширения вроде бы не нужен, поэтому можно вынести из блока if(), а сам блок удалить
//    Для переименования в верхний регистр убрать слеши в следующих двух строчках
//    fc.item().name = "~" + ((lCase) ? (fc.item().name).toUpperCase() : (fc.item().name).toLowerCase());
//    fc.item().name = (fc.item().name).substr(1);
    } else {
      WScript.Echo("Остается                   -> " + pF + "/" + fc.item().name);
      if (lExcelWord) {
        oExtApp.Cells(iR, 3).value = " <- Остается";
      } else {
        with (oExtApp.Selection) {
          MoveRight(wdCell);  Font.Bold = false;
          oExtApp.Selection.TypeText(" <- Остается");
          MoveRight(wdCell);  MoveRight(wdCell);
        }
      }
    }
  }
}