Установка автоматического архивирования для 1С 8.1 и 8.2 (4.0.4.2)

Администрирование - Архивирование (backup)

317
Думай о будущем - сохрани прошлое.
Настройка автоматического ежедневного архивирования нажатием одной кнопки.
Для 1С:Предприятия 8.1 и 8.2.
А пароли? ...прячутся :)
Только качественный контент

Чтобы создать резервную копию достаточно сделать выгрузку информационной базы. Для этого можно выполнить выгрузку из конфигуратора или запустить "1С:Предприятие 8" из командной строки с параметрами. Выполнять рутинную работу по созданию выгрузок счастье не большое, поэтому появилась эта обработка. Ориентирована обработка на неподготовленного пользователя, которому нужно организовать ежедневное автоматическое создание архивной (резервной) копии.

Эта версия имеет 2 режима работы: "облегченный" и "детальная настройка".«Охрана труда» для 1С:Предприятия 8.2

Для запуска обработки под 8.2, обработку необходимо открыть в конфигураторе для конвертации.

Да, чуть не забыл. Дополнительно создаются файлы запуска для архивирования, а при необходимости также для блокировки и снятия блокировки подключения к базе данных пользователей. Итак...


Вариант 1 (облегченный)

Разумеется, что "облегченный" вариант имеет жесткие шаблонные ограничения: архивирование при включении компьютера одной (текущей) информационной базы в определенный каталог. Собственно именно это чаще всего и нужно в организациях, где бухгалтер отвечает за всё.

Инструкция по установке Вариант 1 (облегченный)
1. Скачать обработку с сайта и сохранить, например, на рабочий стол
2. Запустить в режиме "1С:Предприятие" информационную базу для которой будет настроено автоматическое архивирование, а потом через меню "Файл" открыть файл с рабочего стола УстановкаАвтоматическогоАрхивирования.epf
3. Нажать кнопку "Установить" и дождаться сообщения, об окончании настройки

Дальше всё просто. При каждом включении компьютера у вас будет создаваться архивная копия.


Вариант 2 (детальная настройка)

С помощью обработки в режиме "детальной настройки" можно организовать архивирование нескольких баз, создать назначенное задание, которое будет выполняться в назначенное время, а также указать каталоги для дополнительного копирования файлов выгрузки.

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

Инструкция по установке Вариант 2 (детальная настройка)
1. Скачать обработку с сайта и сохранить, например, на рабочий стол
2. Запустить в режиме "1С:Предприятие" любую базу данных, но лучше ту, для которой будет настроено архивирование, а потом через меню "Файл" открыть файл с рабочего стола УстановкаАвтоматическогоАрхивирования.epf
3. Перейти на закладку "Вариант 2: детальная настройка"
4. Выбрать информационные базы для настройки автоматического архивирования на закладке "Шаг 1: выбор баз"
5. При необходимости указать дополнительные параметры на закладке "Шаг 2: параметры"
6. Выполнить проверку на закладке "Шаг 2: проверка"
7. Дождаться сообщения, об окончании проверки
8. Нажать кнопку "Готово" на закладке "Финиш" и дождаться сообщения, об окончании настройки


Бонус - Создание на рабочий стол ярлычка запуска ИБ

Создание ярлычка на текущий рабочий стол для запуска текущей базы данных под текущим пользователем. Бонусный файл находится здесь.

   

317

Скачать файлы

Наименование Файл Версия Размер
Версия 4.0.4.2
.epf 408,67Kb
05.05.12
3834
.epf 408,67Kb 3834 Скачать
Версия 1.3.1.1
.epf 53,93Kb
05.05.12
1349
.epf 53,93Kb 1349 Скачать
Бонус - Создание на рабочий стол ярлычка запуска ИБ
.epf 7,92Kb
05.05.12
409
.epf 7,92Kb 409 Скачать

См. также

Комментарии
Избранное Подписка Сортировка: Древо
1. wirg 17.03.09 21:11 Сейчас в теме
Что то не катит в УТ 10,3,3,3 и платформа 8,1,13,41. Ошибки для каких платформ это сделано?
FIO; alexk-is; +2 Ответить
2. alexk-is 6331 17.03.09 21:48 Сейчас в теме
(1) Спасибо. При зачистке комментариев удалил нужное. Перезалил...
Проверял под ХР.
62. mehanizmy 11.08.10 12:53 Сейчас в теме
(1) Скаченная Версия 3.0.0.1 при запуске выдаёт:
_____________________________
{ВнешняяОбработка.УстановкаАвтоматическогоАрхивирования(116)}: Ошибка при вызове конструктора (ЧтениеТекста): Каталог не обнаружен 'C:\Application Data\1C\1Cv81\ibases.v8i'
по причине:
{ВнешняяОбработка.УстановкаАвтоматическогоАрхивирования(116)}: Ошибка при вызове конструктора (ЧтениеТекста): Каталог не обнаружен 'C:\Application Data\1C\1Cv81\ibases.v8i'

по причине:
Каталог не обнаружен 'C:\Application Data\1C\1Cv81\ibases.v8i'
_____________________________

Самостоятельно создавать этот каталог...
63. alexk-is 6331 11.08.10 13:21 Сейчас в теме
(62) Какая операционная система? Какая версия 1С?
64. mehanizmy 11.08.10 14:38 Сейчас в теме
(63) Система Win XP SP3 (настолько принципиально?) Производство и поддержка Win XP Alternative ver.10.5.1 (May2010)
1С:Предприятие 8.1 (8.1.15.14) Конфигурация "Управление торговлей", редакция 10.3 (10.3.10.4)
65. alexk-is 6331 11.08.10 14:47 Сейчас в теме
(64) Хм... Странно. Попробуйте 3.1.1.1
66. mehanizmy 11.08.10 15:56 Сейчас в теме
(65) Да, эта версия работает, спасибо. Я хотел использовать 2 вариант настройки: (детальная настройка), а именно осуществлять операцию по резервному копированию 1 раз в неделю и в назначенное время. (В указанной же версии без права изменений, т.е. осуществление копирования при загрузке... дополнительную программу не хочу ставить...)

Спасибо за Ваши труды!
67. alexk-is 6331 11.08.10 16:57 Сейчас в теме
(66)
(В указанной же версии без права изменений, т.е. осуществление копирования при загрузке... дополнительную программу не хочу ставить...)
Не понял. Что-то по прежнему не работает?
68. pribory_s 12.08.10 12:30 Сейчас в теме
69. alexk-is 6331 12.08.10 12:46 Сейчас в теме
71. pribory_s 12.08.10 13:23 Сейчас в теме
(69) Спасибо, теперь полет нормальный ;)
3. DitriX 1610 18.03.09 01:30 Сейчас в теме
Вот столкнулся с такой проблемой...
База висит на сервере... А сервер не логинится, т.е. каждый пользователь работает отдельно, и не факт что сегодня залогиниться тот у которого это прописано в автозапуске, а на выходные вообще никто не логинится, т.е. сервер просто висит без пользователей.
Так вот вопрос, эта обработка загружается как служба, или все таки как просто исполняемый файл(скрипт и т.д.), т.е. присутствует условия логина хотяб одного пользователя?
4. alexk-is 6331 18.03.09 06:46 Сейчас в теме
(3) Создается один или несколько скриптов и ярлык в автозагрузке главного меню для всех пользователей. Если у текущего пользователя не достаточно прав, то ярлык в автозагрузке создается только для него.

Если не использовать ярлык в автозагрузке, то скрипт можно включить в регламентные задания в назначенное время. Для этого в назначенных заданиях для скрипта необходимо указать пользователя с достаточным набором прав и обязательно с установленным паролем. Без пароля назначенные задания работать не будут. Назначенное задание может выполняться без входа пользователей на сервер в указанное время, например, ночью.

Если есть разные виды конфигураций, то можно создать несколько скриптов с разными префиксами: zup, bp, ut, upp или db. Соответственно в назначенных заданиях их можно запускать в разное время. Перенести файлы скриптов в другой каталог можно, но ссылки на структуру каталогов прописываются в скриптах жестко прямыми ссылками. Раскидав скрипты по каталогам можно организовать архивирование нескольких конфигураций одного вида.

Но все выше описанные возможности несколько вываливаются из основной идеи - настройка автоматического архивирования нажатием одной кнопки. И реализация этих возможностей также требует от пользователя некоторой подготовки, что тоже вываливается из основной идеи - ориентация обработки на неподготовленного пользователя.
5. alexk-is 6331 18.03.09 18:24 Сейчас в теме
1.2.1.3 Упростил работу с каталогами
6. IgorXml 19.03.09 14:17 Сейчас в теме
Наш админ ответил так: "когда я занимался вопросами резервного копирования была аналогичная, я отказался от нее в пользу bat файла, так проще и более удобно по настройке куда чего складывать"
7. alexk-is 6331 19.03.09 14:41 Сейчас в теме
(6) А кто объяснит бухгалтеру что такое "bat файл" и как правильно его составить?
И как в bat файле будут спрятаны пароли? :)

А для администратора подойдет больше другая версия PROF, но я ее еще не написал... :)
8. alexk-is 6331 20.03.09 14:11 Сейчас в теме
...еще немного, еще чуть-чуть...
9. Squared 20.03.09 17:36 Сейчас в теме
Полезная штучка. ещё не проверял, но все таки молодец, актуальная тема.
10. KrutoyGeniy 24.03.09 09:04 Сейчас в теме
При нажатие "Установить" вышло ошибка:
Не удалось создать пользователя Регламент для выгрузки информационной базы. {ВнешняяОбработка.УстановкаАвтоматическогоАрхивирования(72)}: Поле объекта не обнаружено (ПолныеПрава)
Не удалось создать пользователя для выполнения регламентных заданий
11. alexk-is 6331 24.03.09 09:57 Сейчас в теме
12. KrutoyGeniy 25.03.09 11:47 Сейчас в теме
Платформа: 8.1
Конфигуряция: Сам создал с нуля
13. alexk-is 6331 25.03.09 14:08 Сейчас в теме
(12) В первом абзаце сказано, что обработка имеет жеские ограничения. Т.е. работает по жестко прописанному шаблону. В частности: в конфигурации или не должно быть пользователей, или должна быть роль ПолныеПрава. Также в конфигурации должен быть интерфейс Общий. В типовых конфигурациях роль ПолныеПрава и интерфейс Общий есть.
14. Емельянов Алексей 102 01.04.09 08:50 Сейчас в теме
Какой пароль у пользователя "Регламент"? Звездочки не подходят.
--- Поржал )))

а у меня bat-файлик и программа xStarter - работает замечательно
а насчет того что пароль видно так это фигня, в 1с это пользователь отключен из списка. И этого достаточно чтобы 99% пользователей не смогли этим воспользоваться )))
16. alexk-is 6331 01.04.09 12:53 Сейчас в теме
(14) Всегда найдется 1% инициативнных которые расковыряют, что, где и когда делается и расскажут остальным 99%. А в bat-файлике прописаны и имя пользователя и пароль. :)

Например, наша (рабочая) конфигурация меняет пароль пользователя Регламент во всех клонах базы (во всех филиалах) одновременно. Сама переписывает скрипты при изменении пароля на архивную копию, обмен данными по расписанию, выгрузку каталога товаров для интернет магазина и т.д., и т.п. :)

Настроить можно все, но еще раз повторюсь - обработка ориентирована на неподготовленного пользователя, который, возможно, не умеет писать bat-файлы... :)
SirYozha; Lomok; +2 Ответить
15. Емельянов Алексей 102 01.04.09 08:52 Сейчас в теме
Какой пароль у пользователя "Регламент"? Звездочки не подходят.
---а я то блин набирал звездочки на русском, на англиском, еще на других 100 языках... с правой части клавы... с верхней... полдня потерял вообщем...))))))))))
17. MRAK 708 26.06.09 10:26 Сейчас в теме
Молодца! Для тупого юзера не только разжевал, но и в глотку влил!
19. alexk-is 6331 29.06.09 19:22 Сейчас в теме
(17) Зря ты так про пользователя. Просто это не его компетенция. Бухгалтеру за другое деньги платят, а спрашивают за все. Ну, как-то так, в общих чертах...
20. MRAK 708 29.06.09 21:06 Сейчас в теме
(19) ну если буха спрашивают еще за то, чтоб и админил влегкую "свою адинэсину", то это уже беда не буха, а руководства...
21. alexk-is 6331 30.06.09 06:43 Сейчас в теме
(20) Эх, если бы все руководители занимали такую позицию и заботились о бухгалтерах, а также решали бы все их проблемы...
18. MRAK 708 26.06.09 10:27 Сейчас в теме
+ одназначна зачет "Беда!!! Звездочки не додходят!!!"
:-D
22. Роза 16.07.09 09:07 Сейчас в теме
Программа по идеи очень хороша. Только огорчает ошибка при запуске программы: Не удалось создать пользователя Регламент для выгрузки информационной базы. {ВнешняяОбработка.УстановкаАвтоматическогоАрхивирования(80)}: Поле объекта не обнаружено (Общий)
Не удалось создать пользователя для выполнения регламентных заданий.
23. alexk-is 6331 16.07.09 09:17 Сейчас в теме
(22) "Общий" это интерфейс. Какая у вас конфигурация?
24. Роза 16.07.09 09:46 Сейчас в теме
В моей конфигурации не было интерфейса Общий. А так все получилось. Очень благодарна разработчику. Спасибо!!!
25. alexk-is 6331 17.07.09 14:47 Сейчас в теме
(24) Добавил проверку на интерфейс.
26. Роза 21.07.09 11:33 Сейчас в теме
Спасибо большое!!! У меня своя конфигурация. Не делает ежедневную копию. В текстовый файл пишет: Недостаточно прав доступа! Наверное что-то не доделала. Ответьте пожалуйста. Благодарю за ответ.
27. alexk-is 6331 21.07.09 11:46 Сейчас в теме
(26) Проверьте права у пользователя "Регламент". У него должны быть ПолныеПрава или как минимум права на запуск в режиме 1С:Предприятие, на завершение работы пользователей и на администрирование. Если у вас конфигурация самописная, то возможно механизм "завершения работы пользователей" в ней отсутствует. Посмотрите как этот механизм реализован в типовых конфигурациях.
28. MK 9 15.09.09 07:35 Сейчас в теме
Все клево, но неплохо бы СоздатьКаталог завернуть в Попытка-Исключение. У меня диск D: - это сидюк, и обработка просто вылетела с ошибкой при попытке создать на нем папку
Rainn; N_Rain; alexk-is; +3 Ответить
29. alexk-is 6331 05.10.09 07:50 Сейчас в теме
30. vera_a 23.10.09 14:23 Сейчас в теме
поставила вчера архиватор и порадовалась удобству использования, сегодня включила комп и получила заблокированную базу, запускаю файл D:\1C_Arhiv\buh (разрешить работу пользователей).vbe с тем же результатом "установка соединения с базой запрещена".
SOS, у мну квартальные отчеты на носу, что делать? :cry:
alexk-is; +1 Ответить
31. alexk-is 6331 23.10.09 16:47 Сейчас в теме
(30) Добавил поддержку для конфигурации "Комплексная автоматизация" и новой версии "Управление торговлей"
32. a-novoselov 1049 03.01.10 14:29 Сейчас в теме
(0) В английской версии Windows Server 2008 скрипт не может попасть в базу, т.к. имя пользователя при попытке войти стает "ааеа??аеа". Также кривеют имена лог-файлов и не создаются ярлыки в автозагрузке. Хотя имена файлов скриптов формируются нормально. Собственно сами скрипты не отрабатывают. Даже с утановленной поддержкой русского языка.
33. alexk-is 6331 04.01.10 14:59 Сейчас в теме
(32) Есть вожможность получить доступ и потренироваться?
34. a-novoselov 1049 05.01.10 07:58 Сейчас в теме
(33) Только если на почту будешь скидывать, я протестирую.
Кстати, я изменял имя пользователя на английское, все равно скрипты не отрабатывают, хотя в базу заходят. Насколько я понимаю, в 2008 Windows используется новая кодовая таблица символов, и методы "ЗашифроватьСтроку()" и "StrDecode()" отрабатывают неправильно. 1С не понимает параметры командной строки.
35. dad_dy 9 15.01.10 08:37 Сейчас в теме
подскажите, что поправить чтобы на 8,2 работало?
на 8,1 - отлично отрабатывает типовые,
с 8,1 ЦРМ+УТ и 8,2 проблема - не выкидывает пользователей из базы и, ессно, не архивит(, хотя и нтерфейс общий и права полные...
36. alexk-is 6331 15.01.10 09:30 Сейчас в теме
(35) Что такое ЦРМ+УТ?
Возможно указанные проблемы связаны с порядком обработки параметров командной строки при запуске конфигурации.
37. dad_dy 9 15.01.10 10:18 Сейчас в теме
(36) "Управление торговлей и взаимоотношениями с клиентами (CRM)", редакция 1.0 (1.0.8.1)
И как победить эти проблемы
38. alexk-is 6331 15.01.10 10:30 Сейчас в теме
(37) Всегда есть варианты:
1. Воспользоваться отладчиком
2. Обновить до последней версии Управление торговлей и взаимоотношениями с клиентами (CRM) 1.1.1.2

К сожалению у меня сейчас нет такой конфигурации в каличии, поэтому проверить не могу.
В 8.2 что вы запускаете? Какую конфигурацию?
39. dad_dy 9 15.01.10 13:39 Сейчас в теме
запускаю Бухгалтерия предприятия, редакция 1.6 (1.6.22.4) 1С:Предприятие 8.2 (8.2.10.77)
и как обновление решит проблему закрытия сеансов пользователя? по их (разработчиков) заверениям УТ типовая с накатом ЦРМ на нее, а на 8.1 проблем нет, ни на Бухгалтерии, ни на УТ.
40. alexk-is 6331 15.01.10 13:54 Сейчас в теме
(39) Под 8.2 еще не тестировал. Посмотрю...

В последних версиях типовых конфигураций БП, УТ, УПП и др. поменялась схема обработки параметров запуска командной строки.
База данных у вас файловая или SQL?
41. dad_dy 9 15.01.10 14:08 Сейчас в теме
(40)файловая. мало нас для SQL :)
црм попробую обновиться, поменяно там немного... думал не такая уж актуальная конфа для постоянного обновления, как бух...

сёдня 8,2 себя по другому повела... сеансы вроде как заблокировала, ну сообщение вылезло мол "для доступа введите...", но при этом не закрыла программу, а пыталась открыть снова.
на 8.1 все штатно: предупреждение-закрытие_доступа-архив-открытие_доступа-...(вот тут бы мессагу, что работать можно),

ps все это под терминалом на 2003. выполняется как "назначенные задания" ночью, ессно некоторые забывают закрыть 1С, а закрывают терм.окно
42. alexk-is 6331 15.01.10 14:42 Сейчас в теме
(41) По ps - теоретически их сеансы должны завершиться и тут же запуститься снова и ждать когда будет снята блокировка, после снятия блокировки будет выполнен вход по этим сеансам. Проблема будет только если пользователи включили режим 1С:Предприятия "Временная блокировка..."
43. dad_dy 9 15.01.10 15:13 Сейчас в теме
дык я про то и говорю - на типовой все прекрасно. и закрывает-выгоняет, и архивит.
44. dad_dy 9 18.01.10 10:17 Сейчас в теме
:oops: таки категорически жутко извиняюсь...
на типовой 8,2 отрабатывает (после штатной конвертации) корректно, как и на 8,1, только... дооолгоооо.
Долго выгоняет юзеров. 8,1 выгружала сеансы меньше минуты, 8,2 - минут ПЯТЬ. Ночью никого нет, поэтому не критично.
45. alexk-is 6331 09.03.10 22:08 Сейчас в теме
С картинками в тексте разберусь позже. Пока движек не позволять их отредактировать. :(
46. malvina_84 20.04.10 15:53 Сейчас в теме
:?: Скажите, а как удалить теперь эту штуку? Только если можно, объясните для чайников, я ведь просто бухгалтер ;)
47. alexk-is 6331 20.04.10 16:09 Сейчас в теме
(46) Удалите каталог D:\1C_Arhiv или C:\1C_Arhiv. Скрипты находятся там.

Возможно есть ярлык в автозапуске или назначенное задание, но без скриптов они работать не будут.
48. malvina_84 20.04.10 17:35 Сейчас в теме
alexk-is, огромное спасибо :)
49. alexk-is 6331 21.04.10 06:39 Сейчас в теме
(48) Если не секрет, то ответьте, пожалуйста, почему решили "удалить теперь эту штуку"?
50. malvina_84 21.04.10 10:59 Сейчас в теме
Не секрет

У меня несколько баз, и я просто не смогла настроить, чтобы она архивировала все :( уже на вторую она заругалась... пришлось идти другим путем :)
51. alexk-is 6331 21.04.10 11:21 Сейчас в теме
(50) Что пишет? Какая ошибка? Какие базы?
52. malvina_84 21.04.10 21:49 Сейчас в теме
я пробовала на двух базах 8.1 "бухгалтерия" (типовая), так вот она мне просто одну только базу архивировала, а вторую нет... хотя я уже не помню все в деталях
53. alexk-is 6331 05.05.10 21:39 Сейчас в теме
(52) Хм. Странно. Сколько ни пробовал, всё работает стабильно.
54. the1 312 21.06.10 09:27 Сейчас в теме
55. lumb 22.06.10 16:06 Сейчас в теме
Если настраивать по "Варианту 2" и указать свой путь для сохранения архивов,то созданные скрипты не запускаются. Выдает ошибку 80070002
Строка 52
Символ 1
Не удается найти указанный файл.

в Назначенные задания все равно прописывается D:\1C_Arhiv непорядок ;)
alexk-is; +1 Ответить
56. alexk-is 6331 22.06.10 16:42 Сейчас в теме
57. lumb 22.06.10 17:05 Сейчас в теме
Спасибо, завтра скачаю :|
58. lumb 23.06.10 08:14 Сейчас в теме
Скрипт все равно выдает ошибку, если делать по варианту 2, при любых вариантах настройки. Вариант 1 работает.
59. Збянтэжаны Саўка 24.06.10 10:23 Сейчас в теме
в Процедуре ЗаполнитьДеревоБазДанных()

СписокБаз = СтрЗаменить(КаталогВременныхФайлов(), "Local Settings\Temp\", "") + "Application Data\1C\1Cv81\ibases.v8i";

"Local Settings\Temp\" - это не так, по крайней мере для WinXP нужно брать %USERPROFILE%
60. DoctorRoza 27.06.10 17:22 Сейчас в теме
Подскажите пожалуйста .. а когда выйдет версия обработки, которая будет работать в режиме Управляемого Приложения? А то использование толстого клиента на 8.2 так и хочется назвать "дурным тоном" ;) ! 8.2 не для того создавался, чтобы в нем работать как будто это 8.1. :|
61. alexk-is 6331 28.06.10 18:23 Сейчас в теме
(60) Наверное никогда. Режим управляемого приложения накладывает определенные ограничения, административный функционал крайне ограничен.
70. DonAlPatino 42 12.08.10 12:47 Сейчас в теме
наконец-то нашел бэкапер, который работает под 1С8.2 нормально.
Только вот лично у меня одна проблема - решение от франча с защищенным функционалом. При первом запуске оно стабильно обламывается с криком "Не могу инициализировать защищенный модуль"...
Это я все к тому, что возможность выбрать имеющегося юзера под которым будет проводится бэкап - временами бывает лучше, чем создавать его с нуля с фактически неизвестным паролем.
72. DonAlPatino 42 12.08.10 13:40 Сейчас в теме
А после окончания выгрузки выдает еще одно предупреждение про какие-то @недоступные защищенные блоки" и всит в атком состоянии пока не жмакнешь ОК.
Соотвественно инфобаза заблокирвона :-(
Там никаких допключей "Игнорировать все ошибки" нету случаем?
73. alexk-is 6331 12.08.10 14:39 Сейчас в теме
(72) Возможно это особенность именно вашей конфигурации. В типовых конфигурациях таких проблем не возникает. Если пришлете конфигурацию, то посмотрю, что можно сделать.
74. alexk-is 6331 12.08.10 17:19 Сейчас в теме
(72) Во вложении с заплаткой для Хомнет Лизинг 8 (3.1.22.2.97)
Прикрепленные файлы:
УстановкаАвтоматическогоАрхивирования.epf
75. infotrade 14.08.10 17:46 Сейчас в теме
Автору большое спасибо за проделанную работу, хотел предложить немного развить Ваш проект:
1. На мой взгляд не хватает системы очистки от старых файлов, т.е. количество файлов которые нужно сохранять(за 30 дней, за 10 дней и т.д.). Как дедал сам:
'*****************************************
' Очистка каталога с архивами от старых файлов
'*****************************************
OutFile.WriteLine(CStr(Now)+" Очистка старых файлов в "+FilesPut+" ...")
If DeleteOldFiles(FilesPut, 10, 7) = True Then
OutFile.WriteLine(CStr(Now)+" ... очистка завершена.")
Else
Alert = "High"
OutFile.WriteLine(CStr(Now)+" ... очистка не завершена.")
End If

Сама функция очистки от файлов:

'************************************************************
Function DeleteOldFiles(FolderName, DaysSave, DaysCheck)

Dim LogDeleteOldFiles
Dim Dictionary

Set Dictionary = CreateObject("Scripting.Dictionary")

If (fso.FolderExists(FolderName)) Then

Set Folder = FSO.GetFolder(FolderName)
Set LogDeleteOldFiles = FSO.OpenTextFile(FolderName&"\Deleted_"&Date&".txt",8,True)

'--- Сначала корень ---
Set Files = Folder.Files
For Each File in Files
If ((Int(CStr(Date-File.DateLastModified))+1) > DaysSave) Then
Key = CStr((File.DateLastModified-CDate("01.01.1980"))\DaysCheck)
CheckAndDelete Key, File, LogDeleteOldFiles
End If
Next
Items = Dictionary.Items
For i = 0 To Dictionary.Count-1
Set File = FSO.GetFile(Items(i))
Next
Dictionary.RemoveAll

'--- Подкаталоги ---
Set SubFolders = Folder.Subfolders

For Each SubFolder in SubFolders
Set Files = SubFolder.Files
For Each File in Files
If ((Int(CStr(Date-File.DateLastModified))+1) > DaysSave) Then
Key = CStr((File.DateLastModified-CDate("01.01.1980"))\DaysCheck)
CheckAndDelete Key, File, LogDeleteOldFiles
End If
Next
Items = Dictionary.Items
For i = 0 To Dictionary.Count-1
Set File = FSO.GetFile(Items(i))
Next
Dictionary.RemoveAll
Next

LogDeleteOldFiles.Close
DeleteOldFiles = True

Else
DeleteOldFiles = False

End If

End Function

'**************************************************
Function CheckAndDelete(Key, CurrentFile, LogDeleteOldFiles)

If Dictionary.Exists(Key) Then
Set FileInDictionary = FSO.GetFile(Dictionary(Key))
DateInDictionary = FileInDictionary.DateLastModified
DateCurrentFile = CurrentFile.DateLastModified

If DateInDictionary > DateCurrentFile Then
Dictionary.Remove(Key)
Dictionary.Add Key, CurrentFile.Path

LogDeleteOldFiles.WriteLine "Delete file:"&FileInDictionary&":"&FileInDictionary.DateLastModified
FileInDictionary.Delete
Else
LogDeleteOldFiles.WriteLine "Delete file:"&CurrentFile&":"&CurrentFile.DateLastModified
CurrentFile.Delete

End If
Else
Dictionary.Add Key, CurrentFile.Path
End If

End Function
Поручик; +1 Ответить
76. infotrade 14.08.10 17:58 Сейчас в теме
Втророе пожелание это конечно если все прошло хорошо или плохо :D , то отправлять из скрипта отчет по почте. Как делал сам:
Sh.Run "sendEmail.exe -t "&Email&" -f "&Email&" -u ""1Cv8.1 Backup on Server: "&ServerName&" at "&Date&" "&Time&". Result: "&Alert&""" -s smtp -xu robot -xp robot -o message-file="&Out&" -l "&Out
где:
' Инициализируем необходимые переменные
Out - Это лог файл куда в общем мы все записывали....
ServerName = [ServerName] 'Имя сервера БД
Email = [Email] 'E-mail
Alert = "Normal"
Data и Time - это системные переменные
77. infotrade 14.08.10 18:04 Сейчас в теме
а программа SendEmail.exe бесплатная
http://caspian.dotconf.net/menu/Software/SendEmail/
An Email Program for Sending SMTP Mail from a Command Line
78. infotrade 14.08.10 18:07 Сейчас в теме
79. infotrade 14.08.10 18:12 Сейчас в теме
Ну и конечно отдельное пожелание чтобы лог был поподробнее, начало и окончание , Имя информационной базы.
80. slaviksoft 70 02.09.10 19:11 Сейчас в теме
не работает
конфигурация УТП для Украины 1,1,10,1

завершение работы пользователей отрабатывает
но потом когда запускается 1С (я так понимаю для архивирования) она не может запуститься - возможно передается не тот код разрешения работы

код разрешения в конфе "ПакетноеОбновлениеКонфигурацииИБ"
81. alexk-is 6331 02.09.10 20:36 Сейчас в теме
(80) Это вариант исключения, который прописан для старых конфигураций. Можно один из уже прописанных идентифокаторов поменять на идентификатор вашей конфигурации. К сожалению у меня нет конфигурации УТП для Украины 1.1.10.1, поэтому я не знаю какой идентификатор у неё.
82. slaviksoft 70 03.09.10 13:29 Сейчас в теме
что имеется в виду под идентификатором?
я могу выслать
84. alexk-is 6331 03.09.10 14:00 Сейчас в теме
(82) > что имеется в виду под идентификатором?
ИмяКонфигурации = Метаданные.Имя;

И дальше по тексту модуля найти
Если ИмяКонфигурации = "БухгалтерияПредприятия" и Версия < "001006013000"

Выделенное жирным заменить на идентификатор (Имя) вашей конфигурации. Напишите в табло Метаданные.Имя и получите идентификатор вашей конфигурации

(83) > а чем можно посмотреть файли vbe?
vbe это закодированный vbs. vbs можно посмотреть в любом текстовом редакторе
83. slaviksoft 70 03.09.10 13:29 Сейчас в теме
а чем можно посмотреть файли vbe?
85. slaviksoft 70 03.09.10 18:53 Сейчас в теме
в файле "резервная копия" еще раз вызов завершения работы но этот вызов без ключа /UC - а мы же все запретили!!!

Application = ""c:\program files\1cv81\bin\1cv8.exe" ENTERPRISE /F""E:\1CBases\UTP 1.1.9.3""
/N""Регламент"" /WA- /P""497c0b9842f04c4f95111132b9bc3b5a"" /RunModeOrdinaryApplication
/CЗавершитьРаботуПользователей /Out"D:\1C_Arhiv\УТП_1,1,9,3\utp (резервная копия).txt"
-NoTruncate /DisableStartupMessages"
objShell.Run Application, 0, True

DateTime = NameDump()

Application = """c:\program files\1cv81\bin\1cv8.exe" CONFIG /F""E:\1CBases\UTP 1.1.9.3""
/N""Регламент"" /WA- /P""497c0b9842f04c4f95111132b9bc3b5a""
/UCПакетноеОбновлениеКонфигурацииИБ /Visible
/Out"D:\1C_Arhiv\УТП_1,1,9,3\utp (резервная копия).txt" -NoTruncate /DisableStartupMessages
/DumpIB"D:\1C_Arhiv\УТП_1,1,9,3\utp_ & DateTime & .dt"""
objShell.Run Application, 0, True

Application = ""c:\program files\1cv81\bin\1cv8.exe" ENTERPRISE /F""E:\1CBases\UTP 1.1.9.3""
/N""Регламент"" /WA- /P""497c0b9842f04c4f95111132b9bc3b5a""
/UCПакетноеОбновлениеКонфигурацииИБ /RunModeOrdinaryApplication
/CРазрешитьРаботуПользователей /Out"D:\1C_Arhiv\УТП_1,1,9,3\utp (резервная копия).txt"
-NoTruncate /DisableStartupMessages"
objShell.Run Application, 0, True
86. alexk-is 6331 04.09.10 09:21 Сейчас в теме
(85) Что не так?

В AutoBackUp (резервная копия).vbe для каждой выбранной базы данных:
1. Завершение работы пользователей
2. Выгрузка базы данных
3. Разрешение работы пользователей
4. Копирование выгрузки на дополнительное хранилище (если доступно)
87. slaviksoft 70 04.09.10 16:36 Сейчас в теме
я добавил в обработку идентификатор - там все гут

1. Завершение работы пользователей - гут

2. при попітке захода в конфигуратор для выгрузки - не может зайти так как не передается или не верный ключ UC
88. alexk-is 6331 04.09.10 16:55 Сейчас в теме
(87) Какой идентификатор у вашей конфигурации?
89. slaviksoft 70 05.09.10 12:19 Сейчас в теме
идентификатор = УправлениеТорговымПредприятиемДляУкраины
90. alexk-is 6331 05.09.10 17:48 Сейчас в теме
(89) Добавил. Нужно проверить.
91. slaviksoft 06.09.10 11:36 Сейчас в теме
можна уже перекачать обработку с сайта?
92. alexk-is 6331 06.09.10 11:58 Сейчас в теме
(91) Не совсем понял вопроса.

Скачивать обработку можно в любое удобное время :)

Версия выложенная на infostart.ru обрабатывает конфигурации с идентификатором УправлениеТорговымПредприятиемДляУкраины как исключение из общих правил и устанавливает для них код разрешения /UCПакетноеОбновлениеКонфигурацииИБ
93. tani6e4ka 10.09.10 17:01 Сейчас в теме
slaviksoft, заработала у вас архивация?
94. tani6e4ka 10.09.10 17:03 Сейчас в теме
у меня не работает. при запуске автоматом выбирается пользователь регламент, и все.....
95. alexk-is 6331 12.09.10 20:21 Сейчас в теме
96. slaviksoft 70 13.09.10 09:43 Сейчас в теме
(93.) к сожалению - не заработала

97. tani6e4ka 13.09.10 12:29 Сейчас в теме
есть предприятие в Молдавии, которое работает на молдавской конфигурации. хотели настроить архивацию, но ничего не выходит. если хотите, то по этому адресу можете ее скачать. спасибо
http://www.nowa.cc/showthread.php?t=58133&page=3
98. alexk-is 6331 13.09.10 13:23 Сейчас в теме
(97) Это просто издевательство какое-то. Убил кучу времени на регистрацию и только для того, чтобы узнать, что скрытый текст недоступен. Так далеко меня давно не посылали :(
99. tani6e4ka 13.09.10 14:39 Сейчас в теме
извините. куда мне выслать эту конфигурацию?
Оставьте свое сообщение