Windows Script Host для Windows 2000/XP

/*           целевой каталог с ведением log-файла                  */

/*******************************************************************/

//Объявляем переменные

var

 Source="C:\\In\\", //Путь к каталогу-источнику файлов для перемещения

 Dest="C:\\Out\\",  //Путь к целевому каталогу

 Mask="003",        //Расширение файлов для перемещения

 PathLog="C:\\In\\log.txt",   //Путь к log-файлу

 ForAppending=8;    //Константа для работы с файлами

//Объявляем переменные

var FSO,Fold,Files;

//Функция для записи информации в log-файл

function WriteLog() {

//Объявляем переменные

var s,ss,s1,d,File,FLog;

 WScript.Echo("");

 WScript.Echo("Записываем информацию в log-файл...");

 //Открываем log-файл для добавления

 FLog=FSO.OpenTextFile(PathLog,ForAppending,true);

 //Переходим к первому элементу коллекции файлов

 Files.moveFirst();

 //Цикл по всем файлам в коллекции

 while (!Files.atEnd()) {

  //Извлекаем текущий файл из коллекции

  File=Files.item();

  //Выделяем расширение файла

  s=FSO.GetExtensionName(File.Name);

  //Проверяем, совпадает ли расширение текущего файла

  //с расширением файлов для перемещения

  if (s==Mask) {

   //Выводим имя файла на экран

   WScript.Echo("  "+File.Name);

   //Определяем дату создания файла

   d=new Date(File.DateCreated);

   //Формируем строку ss для записи в log-файл

   ss=LFillStr(13,File.Name)

   s1="("+DateToStr(d)+" ";

   s1+=TimeToStr(d)+")";

   ss+=LFillStr(20,s1);

   //Определяем текущую дату

   d=new Date();

   ss+=DateToStr(d);

   ss+=" "+TimeToStr(d);

   //Записываем сформированную строку в log-файл

   FLog.WriteLine(ss);

  }

  //Переходим к следующему файлу в коллекции

  Files.moveNext();

 }

}

//Функция для перемещения файлов

function MoveFiles() {

 //Объявляем переменные

 var s,ss,Col,File;

 Col=0; //Счетчик количества перемещенных файлов

 WScript.Echo("");

 WScript.Echo("Перемещаем файлы ...");

 //Переходим к первому элементу коллекции файлов

 Files.moveFirst();

 //Цикл по всем файлам в коллекции

 while (!Files.atEnd()) {

  //Извлекаем текущий файл из коллекции

  File=Files.item();

  //Выделяем расширение файла

  s=FSO.GetExtensionName(File.Name);

  //Проверяем, совпадает ли расширение текущего файла

  //с расширением файлов для перемещения

  if (s==Mask) {

   //Выводим имя файла на экран

   WScript.Echo("  "+File.name);

   //Копируем файл в целевой каталог

   File.Copy(Dest);

   //Удаляем файл

   File.Delete();

   //Увеличиваем счетчик количества перемещенных файлов

   Col++;

  }

  //Переходим к следующему файлу в коллекции

  Files.moveNext();

 }

 //Выводим информацию о количестве перемещенных файлов

 WScript.Echo("");

 WScript.Echo("Перемещено файлов:",Col);

 WScript.Echo("Нажмите Enter...");

 WScript.StdIn.ReadLine();

}