Резервное копирование стр.2

Резервное копирование

Для того. чтобы база не пухла от постоянного роста архивов, очень не сложно штатными методами 1С сделать ограничение на количество хранимых архивов, например 30. Тогда каждый следующий архив будет выталкивать самый ранний, а общее количество файлов все равно останется 30. Вот этот код:

//*************************************23.01.2004 г.

// След. кусок кода работает при наличии системы автоматического архивирования.

// Из архива удаляются все файлы за исключением количества указанного в настройках.

// сделано, чтобы не распухал архив. Причем удаление файлов ориентирована

// на тип SFX-файлов.

СзАрхив=СоздатьОбъект("СписокЗначений");

Арх=СокрЛП(Константа.КаталогАрхив);

Сч=0;

Файл=ФС.НайтиПервыйФайл(Арх+"\"+"*.exe");

Пока ПустаяСтрока(Файл)=0 Цикл

СзАрхив.ДобавитьЗначение(Файл);

Сч=Сч+1;

Файл=ФС.НайтиСледующийФайл();

КонецЦикла;

СзАрхив.Сортировать();

Если Сч>=Константа.КолЭкзАрхива Тогда

НадоУдалить=Сч-Константа.КолЭкзАрхива;

Для СчФ=1 По НадоУдалить Цикл

Фс.УдалитьФайл(Арх+"\"+СзАрхив.ПолучитьЗначение(СчФ));

КонецЦикла;

КонецЕсли;

ФайлZip=ФС.НайтиПервыйФайл(Арх+"\"+"*.zip");

Пока ПустаяСтрока(ФайлZip)=0 Цикл

Фс.УдалитьФайл(Арх+"\"+ФайлZip);

ФайлZip=ФС.НайтиСледующийФайл();

КонецЦикла;

Если Сч=0 Тогда

Предупреждение("Отсутсвует автоматическая система архивирования",1);

КонецЕсли;