Андрей Попов - Windows Script Host для Windows 2000/XP

//Проверка доступности каталогов

function CheckPath() {

var FSO;

//Создаем объект FileSystemObject

FSO=new ActiveXObject("Scripting.FileSystemObject");

//Проверяем доступность исходного каталога

if (!FSO.FolderExists(SFrom)) { //Исходный каталог не существует

//Формируем строку с информацией об ошибке

SErrMess="Не найден исходный каталог "+SFrom;

return false;

}

//Проверяем доступность каталога для архивирования

if (!FSO.FolderExists(SArch)) {

//Каталог для архивирования не существует

//Формируем строку с информацией об ошибке

SErrMess="Не найден каталог для хранения архивов "+SArch;

return false;

}

//Если оба каталога существуют, возвращаем true

return true;

}

Основной функцией, осуществляющей архивирование файлов, является FilesToArchiv(). В самом начале этой функции с помощью вызова CheckPath()проверяется наличие рабочих каталогов. Если хотя бы один из каталогов не существует, то выполнение FilesToArchiv()прерывается и возвращается значение false:

if (!CheckPath()) return false;

Затем создаются экземпляры объектов FileSystemObjectи WshShell:

//Создаем объект FileSystemObject

FSO = new ActiveXObject("Scripting. FileSystemObject");

//Создаем объект WshShell

WshShell = new ActiveXObject("WScript.Shell");

Имя файла-архива формируется следующим образом:

//Формируем имя файла-архива

SFName=SPref+NowIs()+".arj";

Архиватор arj.exe мы будем запускать в отдельном командном окне, которое закроется после выполнения этой программы. Для этого мы сформируем командную строку SComLine, с помощью которой запускается вторичная копия командного процессора (путь к командному процессору хранится в переменной среды %COMSPEC%, вторичная копия вызывается с помощью ключа /с):

SComLine="%COMSPEC% /с ";

Синтаксис запуска arj.exe для создания архивного файла имеет следующий вид:

arj.exe a Archiv Files

где Archiv — путь к файлу-архиву, Files — имена добавляемых в архив файлов (здесь можно использовать шаблонные символы ? и *). Поэтому мы добавим нужные компоненты к командной строке SComLine:

SComLine+=" arj.exe a "+FSO.BuildPath(SArch, SFName) + " ";

SComLine+= FSO.BuildPath(SFrom, SMask);

Команды, записанные в SComLine, запускаются с помощью метода Runобъекта WshShell; код возврата сохраняется в переменной RetCode:

RetCode = WshShell.Run(SComLine, 1, true);

Равенство нулю переменной RetCodeозначает, что архивирование выполнено без ошибок — в этом случае функция FilesToArchiv()возвращает true. Если же при выполнении arj.exe возникла ошибка (переменная RetCodeне равна нулю), то ее код вносится в сообщение об ошибке (свойство SErrMess):

//Анализируем код возврата для arj.exe

if (0==RetCode)

//Выполнение arj.exe завершилось без ошибок

return true;

else {

//Формируем строку с информацией об ошибке

SErrMess="Ошибка ARJ.EXE! Код "+RetCode;

return false;

}

Полностью содержимое файла DateArc.wsc приведено в листинге 10.4.

version="1.00"

classid="{424ac2bc-5732-4dea-be17-0211af99cd79}">

var WshShell;

//Инициализируем константы для диалоговых окон

var vbInformation=64;

function Register() {

//Создаем объект WshShell

WshShell = new ActiveXObject("WScript.Shell");

WshShell.Popup("Компонент зарегистрирован в системе",0,

"Компонент для архивирования файлов",vbInformation);

}

function Unregister() {

//Создаем объект WshShell

WshShell = new ActiveXObject("WScript.Shell");

WshShell.Popup("Компонент удален из системы",0,

"Компонент для архивирования файлов",vbInformation);

}

]]>

var description = new DateArc;

//Конструктор объекта DateArc

function DateArc() {

//Объявляем свойства объекта DateArc

this.get_SFrom = get_SFrom;

this.put_SFrom = put_SFrom;

this.get_SArch = get_SArch;

this.put_SArch = put_SArch;

this.get_SPref = get_SPref;

this.put_SPref = put_SPref;

this.get_SMask = get_SMask;

this.put_SMask = put_SMask;

this.get_SErrMess = get_SErrMess;

//Объявляем метод FilesToArchiv

this.FilesToArchiv = FilesToArchiv;

}

var SFrom, //Исходный каталог для архивирования

SArch, //Каталог, в котором будет создаваться архив

SPref, //Префикс файла

SMask, //Маска, по которой отбираются файлы для

//архивирования

SErrMess; //Текст сообщения об ошибке