АРХИВ СТАТЕЙ ЖУРНАЛА «МОЙ КОМПЬЮТЕР» ЗА 2003 ГОД

Ассенизация диска

Все журналы \ Номер 24/247 `2003 от 16.06.2003 \ Ассенизация диска

Sergey_Savchenko@p32.f290.n461.z2.fidonet.org Sergey_Savchenko@p32.f290.n461.z2.fidonet.org

Своп и мусор неизбежен как крах капитализма. Если же со спамом как-то еще и можно бороться, устанавливая фильтры на почтовых ящиках, храня свой e-mail в строгом секрете даже от друзей, то проконтролировать процесс появления мусора на вашем жестком диске намного сложнее. Ставите вы какую-нибудь программу и не подозреваете, что кроме нужных файлов она копирует на винт еще пару десятков txt’шек, diz’ов, bak’ов и тому подобной полезности. Не станете же вы проверять вручную все папки после установки каждой программы!

Примерно месяца три назад я купил просто огромный по сравнению с моей предыдущей двадцаткой винт — Samsung 60 Гб. Через два месяца винда начала выдавать мне сообщения — «Недостаточно места на диске D», предлагая провести очистку от ненужных файлов. Результаты очистки превзошли все мои ожидания — удалось очистить целых 69 Кб!!! Мне что-то не верилось, что это и есть весь тот мусор, от которого можно безболезненно избавится. Я начал искать по очереди файлы с расширением .tmp, .bak, .old и т.д. Процедура довольно-таки нудная, но зато позволила очистить еще около 20 Мб.

Выполнять эту муторную работу изо дня в день мне не очень хотелось, и я полез в Интернет за софтом, который позволил бы автоматизировать процесс поиска мусора и избавления от него. Особого труда найти такие программы не составило. А вот избавится от мусора с их помощью…

Большинство скачанных мной программ занимали от полуметра до двух. То есть, предлагалось установить 2-Мб программу, которая добавит в Винду пару десятков dll’ок и избавит вас примерно от такого же количества мусора. Да… В моем понимании подобная программа должна быть маленькой, состоять по возможности из одного файла и не перемешивать себя с системой. Ведь зачем нужны кучи bmp’шек, dll’лок, wav’ов, идущих в комплекте с единственной нужной функцией? Для улучшения интерфейса и для того, чтобы по завершении работы программа пропищала вам какую-то незамысловатую мелодию. Производители явно не поняли, зачем они это пишут. Вряд ли кто-то ставит подобные программы, чтобы услаждать свой слух их изысканным писком.

Я не хочу сказать, что все программы-мусоросборники подобны описанным выше. Просто мне не удалось найти ничего приличного. Но, как говорится, лень — двигатель прогресса. Именно лень и побудила меня к написанию данной программы.

Условия, которым, она должна была отвечать — малый размер, быстрый поиск мусора.

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

{Название программы} 
Program Clear;
{Подключаем модуль DOS.TPU}
Uses DOS;  				
{Описываем глобальные переменные}
Var					 
 F:text; 				
{Значение счетчика записи из массива расширений}
  number_ext:integer;			
  i:integer;

{Описываем константы}
Const					
{Количество записей в массиве расширений}
   kolvo_ext=7;			 
{Собственно, сам массив расширений. Количество записей обязательно должно быть равно константе kolvo_ext!}
{Синтаксис записи в массив — маски файлов, взятые в одинарные кавычки через запятую, например, '1', '2', '3', '…'} 
   musor:array[1..kolvo_ext] of string [12] =	
   ('*.~*','*.bak','*.diz','*.nfo','~*.*','*.tmp','thumbs.*');

{Процедура записи имен с путями «мусорных» файлов в BAT-файл}
Procedure Musor_to_file(path,mask:string);
{Описываем локальные переменные}
Var 
search_musor:searchrec;
Begin
{Поиск файлов по маске} 
 findfirst(path+mask,anyfile-directory,search_musor);
{Если найдены файлы с указанной маской (маска хранится в переменной MASK, то...)} 
 while doserror=0 do begin
{Выводим путь и имя файла на экран. В принципе, эта строка не очень нужна, и если ее убрать, то это сэкономит несколько секунд при поиске} 
  WriteLn(path+search_musor.name);
{Записать в BAT-файл строки вида DEL путь+имя файла} 
  WriteLn(F,'del ',path+search_musor.name);
{ищем следующий файл} 
  findnext(search_musor);
 end;
end;

{Рекурсивная процедура поиска файлов по маске}  
Procedure SearchFiles(path,mask:string);
{Описываем локальные переменные} 
Var search_musor:searchrec;
begin
{Вызов процедуры записи «мусорных файлов» в батник} 
 Musor_to_file(path,mask);

findfirst(path+'*.*',anyfile, search_musor);
 while doserror=0 do begin
  if (search_musor.attr and directory=directory) and
    (search_musor.name<>'.') and (search_musor.name<>'..') then
   SearchFiles(path+search_musor.name+'\',mask);
  findnext(search_musor);
 end;
end;

{НАЧАЛО ПРОГРАММЫ} 
begin
{Присваиваем имя файлу, который собираемся открыть} 
 Assign(F,'clear.bat');
{Открываем файл для записи. Если файл есть, то он создается заново} 
 ReWrite(F);
{перебор масок «мусорных» файлов из массива musor}
 for number_ext:=1 to kolvo_ext do
   begin
{Чтение параметра командной строки}
        for I := 1 to ParamCount do
{Поиск файлов на диске, имя которого читается из командной строки с параметром, полученным из массива musor} 
        SearchFiles(ParamStr(I),musor[number_ext]);
   end;
{Закрытие батника}
 Close(F);
{КОНЕЦ ПРОГРАММЫ} 
end.

Параметры запуска программы: CLEAR.EXE имя диска (естественно, если вы назовете программу CLEAR). Например:

Саму программу можно запускать из-под Винды, а вот батник желательно из-под ДОСа. Просто Винда не даст вам стереть некоторые временные файлы, которые, по ее мнению, ей нужны. Но мы-то с вами знаем, что это не так :-). Если же вы запустите программу в ДОСе, то не забудьте заранее запустить smartdrv.exe, иначе скорость поиска упадет раз в десять по сравнению с поиском в Винде.

Результатом работы программы является файл clear.bat, появляющийся в той же папке, где находится clear.exe. Зачем он нужен, почему сразу не удалять файлы? Да просто для того, чтобы перед его запуском вы смогли его отредактировать — вдруг в список удаления попал ваш любимый .bak или .tmp :-).

Пользовательский интерфейс? А нужен ли он вообще? Если статья и затронутая проблема найдет отклик в сердцах читателей, могу продолжить эту тему и в следующей статье написать программу интерфейса для этой мусороискалки, а ее немного изменить ее код, для того чтобы она брала маски файлов не из массива, а из файла.

Программа шареваре-условно-бесплатна. То есть, вы можете пользоваться ей в течение 30 дней. Если же она вам понравится, то можете пользоваться и дальше :-). Еще вы можете заплатить. Условно, разумеется :-).

Соответствует ли программа этим требованиям? Размер — 5 Кб. Время поиска на диске D: (занято 51 Гб из 57 Гб, 89 824 файла) — 15 секунд. Впечатляет? Я думаю, да. И, скромно опустив глаза, добавляю: программа получилась знатная.

ЗЫ: Автор не несет никакой ответственности за проблемы, связанные с использованием данной программы. Внимательно проверьте маски файлов, которые вы включили в массив масок. Учтите, что некоторые на первый взгляд ненужные файлы необходимы для работы некоторых программ. Запуская на выполнение файл clear.bat, вы действуете на свой страх и риск.

Рекомендуем ещё прочитать:

сW@Pгань страничку. (№1/224 `2003) Дмитрий Свирепчук
Пошарпанный практикум. (№29/252 `2003) Игорь Павлов
Программисткое многоборье. (№30/253 `2003) Владимир Ткачук
Мысли о Паскале. (№30/253 `2003) Владислав Демьянишин
Решить задачу раз плюнуть. (№31/254 `2003) Олег Данилюк
Гурьбою на пальму. (№37/260 `2003) Анатолий Шуба
Дельфин в море информации. (№41/264 `2003) Иван Мороз
SDеLай сам. (№45/268 `2003) Владимир [Farcaller] Пузанов
Мысли о Паскале. (№45/268 `2003) Владислав Демьянишин
Пошарпанный практикум. (№50/273 `2003) Игорь Павлов

Предыдущая статья Назад К списку журналов Следующая статья