Windows Script Host для Windows 2000/XP

Попов Андрей Викторович

//Произошла ошибка при удалении файла

Status="Busy";

 }

}

Таким образом, в переменной

Status

будет записан результат удаления файла: "OK" в случае успеха, и "Busy" в том случае, если удаляемый файл занят другим приложением. После этого полный путь к удаляемому файлу и значение переменной

Status

печатаются в окне Блокнота с помощью метода

SendKeys

объекта

WshShell

.

Здесь только нужно учесть, что в имени файла могут встретиться символы, имеющие специальный смысл для метода

SendKeys

, поэтому предварительно нужно соответствующим образом заменить такие символы в имени файла:

//Заменяем специальные символы в названии файла

SPath=SPath.replace("~", "{-}");

SPath=SPath.replace("+", "{+}");

SPath=SPath.replace("^", "{^}");

SPath=SPath.replace("%", "{%}");

//Посылаем название файла и результат его удаления в Блокнот

WshShell.SendKeys(SPath+"{TAB}"+Status+"~");

//Приостанавливаем сценарий на 0,5 сек

WScript.Sleep(500);

Перейдем теперь к описанию функции

LoopSubFolders(Fold)

. Сначала в этой функции удаляются временные файлы в каталоге Fold:

//Удаляем временные файлы из каталога Fold

DelFilesInFolder(Fold, ExtForDel);

Затем происходит удаление файлов во всех подкаталогах каталога Fold, причем делается это с помощью обращения для каждого подкаталога к той же функции

LoopSubFolders

:

//Создаем коллекцию подкаталогов

SubFolders = new Enumerator(Fold.SubFolders);

//Цикл по всем подкаталогам

while (!SubFolders.atEnd) {

 //Вызываем рекурсивно функцию LoopSubFolders

 LoopSubFolders(SubFolders.item);

 //Переходим к следующему подкаталогу

 SubFolders.moveNext;

}

Полный текст сценария DelTmp.js приведен в листинге 5.17.

Листинг 5.17. Удаление всех временных файлов на диске D:

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

/* Имя: DelTmp.js */

/* Язык: JScript */

/* Описание: Удаление временных файлов во всех подкаталогах */

/* текущего каталога */

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

//Объявляем глобальные переменные

var WshShell,FSO,Folder,

 ColTmp=0, //Счетчик

файлов для удаления

 ExtForDel="tmp"; //Расширение файлов, подлежащих удалению

//Рекурсивная функция для удаления временных файлов в каталоге Fold

function LoopSubFolders(Fold) {

 var SubFolders;

 //Удаляем временные файлы из каталога Fold

 DelFilesInFolder(Fold,ExtForDel);

 //Создаем коллекцию подкаталогов

 SubFolders = new Enumerator(Fold.SubFolders);

 //Цикл по всем подкаталогам

 while (!SubFolders.atEnd) {

//Вызываем рекурсивно функцию LoopSubFolders

LoopSubFolders(SubFolders.item);

//Переходим к следующему подкаталогу

SubFolders.moveNext;

 }

}

//Функция для удаления файлов с расширением SExt в каталоге Fold

function DelFilesInFolder(Fold,SExt) {

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

 var Files,s,SPath,FileExt,Status;

 //Создаем коллекцию всех файлов в каталоге Fold

 Files=new Enumerator(Fold.Files);

 s="";

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

 while (!Files.atEnd) {

//Определяем путь к файлу

SPath=Files.item.Path;

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

FileExt=FSO.GetExtensionName(SPath).toUpperCase;

//Сравниваем расширение файла с расширением SExt

if (FileExt==SExt.toUpperCase) {

ColTmp++; //Увеличиваем счетчик файлов для удаления

try {

Status="Ok";

//Пытаемся удалить файл

//Files.item.Delete;

} catch (e) { //Обрабатываем возможные ошибки

if (e != 0) {

//Произошла ошибка при удалении файла

Status="Busy";

}

}

//Заменяем специальные символы в названии файла

SPath=SPath.replace("~","{~}");

SPath=SPath.replace("+","{+}");

SPath=SPath.replace("^","{^}");