gifts2017

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

Опубликовал Алексей Константинов (alexk-is) в раздел Администрирование - Архивирование (backup)

Думай о будущем - сохрани прошлое.
Настройка автоматического ежедневного архивирования нажатием одной кнопки.
Для 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. Нажать кнопку "Готово" на закладке "Финиш" и дождаться сообщения, об окончании настройки


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

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

   

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

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

См. также

PowerTools от 1 000
Подписаться Добавить вознаграждение
Комментарии
1. Евгений (wirg) 17.03.09 21:11
Что то не катит в УТ 10,3,3,3 и платформа 8,1,13,41. Ошибки для каких платформ это сделано?
FIO; alexk-is; +2 Ответить 2
2. Алексей Константинов (alexk-is) 17.03.09 21:48
(1) Спасибо. При зачистке комментариев удалил нужное. Перезалил...
Проверял под ХР.
3. Дмитрий Шерстобитов (DitriX) 18.03.09 01:30
Вот столкнулся с такой проблемой...
База висит на сервере... А сервер не логинится, т.е. каждый пользователь работает отдельно, и не факт что сегодня залогиниться тот у которого это прописано в автозапуске, а на выходные вообще никто не логинится, т.е. сервер просто висит без пользователей.
Так вот вопрос, эта обработка загружается как служба, или все таки как просто исполняемый файл(скрипт и т.д.), т.е. присутствует условия логина хотяб одного пользователя?
4. Алексей Константинов (alexk-is) 18.03.09 06:46
(3) Создается один или несколько скриптов и ярлык в автозагрузке главного меню для всех пользователей. Если у текущего пользователя не достаточно прав, то ярлык в автозагрузке создается только для него.

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

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

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

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

а у меня bat-файлик и программа xStarter - работает замечательно
а насчет того что пароль видно так это фигня, в 1с это пользователь отключен из списка. И этого достаточно чтобы 99% пользователей не смогли этим воспользоваться )))
15. Алексей (Емельянов Алексей) 01.04.09 08:52
Какой пароль у пользователя "Регламент"? Звездочки не подходят.
---а я то блин набирал звездочки на русском, на англиском, еще на других 100 языках... с правой части клавы... с верхней... полдня потерял вообщем...))))))))))
16. Алексей Константинов (alexk-is) 01.04.09 12:53
(14) Всегда найдется 1% инициативнных которые расковыряют, что, где и когда делается и расскажут остальным 99%. А в bat-файлике прописаны и имя пользователя и пароль. :)

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

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

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

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

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

ps все это под терминалом на 2003. выполняется как "назначенные задания" ночью, ессно некоторые забывают закрыть 1С, а закрывают терм.окно
42. Алексей Константинов (alexk-is) 15.01.10 14:42
(41) По ps - теоретически их сеансы должны завершиться и тут же запуститься снова и ждать когда будет снята блокировка, после снятия блокировки будет выполнен вход по этим сеансам. Проблема будет только если пользователи включили режим 1С:Предприятия "Временная блокировка..."
43. Андрей (dad_dy) 15.01.10 15:13
дык я про то и говорю - на типовой все прекрасно. и закрывает-выгоняет, и архивит.
44. Андрей (dad_dy) 18.01.10 10:17
:oops: таки категорически жутко извиняюсь...
на типовой 8,2 отрабатывает (после штатной конвертации) корректно, как и на 8,1, только... дооолгоооо.
Долго выгоняет юзеров. 8,1 выгружала сеансы меньше минуты, 8,2 - минут ПЯТЬ. Ночью никого нет, поэтому не критично.
45. Алексей Константинов (alexk-is) 09.03.10 22:08
С картинками в тексте разберусь позже. Пока движек не позволять их отредактировать. :(
46. Анна (malvina_84) 20.04.10 15:53
:?: Скажите, а как удалить теперь эту штуку? Только если можно, объясните для чайников, я ведь просто бухгалтер ;)
47. Алексей Константинов (alexk-is) 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) 21.04.10 06:39
(48) Если не секрет, то ответьте, пожалуйста, почему решили "удалить теперь эту штуку"?
50. Анна (malvina_84) 21.04.10 10:59
Не секрет

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

в Назначенные задания все равно прописывается D:\1C_Arhiv непорядок ;)
56. Алексей Константинов (alexk-is) 22.06.10 16:42
57. Николай (lumb) 22.06.10 17:05
Спасибо, завтра скачаю :|
58. Николай (lumb) 23.06.10 08:14
Скрипт все равно выдает ошибку, если делать по варианту 2, при любых вариантах настройки. Вариант 1 работает.
59. aga_aga (Збянтэжаны Саўка) 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) 28.06.10 18:23
(60) Наверное никогда. Режим управляемого приложения накладывает определенные ограничения, административный функционал крайне ограничен.
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) 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) 11.08.10 14:47
(64) Хм... Странно. Попробуйте 3.1.1.1
66. mehanizmy 11.08.10 15:56
(65) Да, эта версия работает, спасибо. Я хотел использовать 2 вариант настройки: (детальная настройка), а именно осуществлять операцию по резервному копированию 1 раз в неделю и в назначенное время. (В указанной же версии без права изменений, т.е. осуществление копирования при загрузке... дополнительную программу не хочу ставить...)

Спасибо за Ваши труды!
67. Алексей Константинов (alexk-is) 11.08.10 16:57
(66)
(В указанной же версии без права изменений, т.е. осуществление копирования при загрузке... дополнительную программу не хочу ставить...)
Не понял. Что-то по прежнему не работает?
68. Евгений Николаев (pribory_s) 12.08.10 12:30
69. Алексей Константинов (alexk-is) 12.08.10 12:46
70. Вячеслав Алпатов (DonAlPatino) 12.08.10 12:47
наконец-то нашел бэкапер, который работает под 1С8.2 нормально.
Только вот лично у меня одна проблема - решение от франча с защищенным функционалом. При первом запуске оно стабильно обламывается с криком "Не могу инициализировать защищенный модуль"...
Это я все к тому, что возможность выбрать имеющегося юзера под которым будет проводится бэкап - временами бывает лучше, чем создавать его с нуля с фактически неизвестным паролем.
71. Евгений Николаев (pribory_s) 12.08.10 13:23
(69) Спасибо, теперь полет нормальный ;)
72. Вячеслав Алпатов (DonAlPatino) 12.08.10 13:40
А после окончания выгрузки выдает еще одно предупреждение про какие-то @недоступные защищенные блоки" и всит в атком состоянии пока не жмакнешь ОК.
Соотвественно инфобаза заблокирвона :-(
Там никаких допключей "Игнорировать все ошибки" нету случаем?
73. Алексей Константинов (alexk-is) 12.08.10 14:39
(72) Возможно это особенность именно вашей конфигурации. В типовых конфигурациях таких проблем не возникает. Если пришлете конфигурацию, то посмотрю, что можно сделать.
74. Алексей Константинов (alexk-is) 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) 02.09.10 19:11
не работает
конфигурация УТП для Украины 1,1,10,1

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

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

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

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

(83) > а чем можно посмотреть файли vbe?
vbe это закодированный vbs. vbs можно посмотреть в любом текстовом редакторе
85. Ярослав Тарарака (slaviksoft) 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) 04.09.10 09:21
(85) Что не так?

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

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

2. при попітке захода в конфигуратор для выгрузки - не может зайти так как не передается или не верный ключ UC
88. Алексей Константинов (alexk-is) 04.09.10 16:55
(87) Какой идентификатор у вашей конфигурации?
89. Ярослав Тарарака (slaviksoft) 05.09.10 12:19
идентификатор = УправлениеТорговымПредприятиемДляУкраины
90. Алексей Константинов (alexk-is) 05.09.10 17:48
(89) Добавил. Нужно проверить.
91. Славик (slaviksoft) 06.09.10 11:36
можна уже перекачать обработку с сайта?
92. Алексей Константинов (alexk-is) 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) 12.09.10 20:21
96. Ярослав Тарарака (slaviksoft) 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) 13.09.10 13:23
(97) Это просто издевательство какое-то. Убил кучу времени на регистрацию и только для того, чтобы узнать, что скрытый текст недоступен. Так далеко меня давно не посылали :(
99. Анютик (tani6e4ka) 13.09.10 14:39
извините. куда мне выслать эту конфигурацию?