|
v7: автоматический backup | ☑ | ||
---|---|---|---|---|
0
lucifer
23.08.11
✎
11:48
|
счас я делаю так
есть файлик C:\backup.txt с содержанием: [General] Output = путь к логу Quit = 1 UnloadData = 1 [UnloadData] UnloadToFile = путь к архиву IncludeUserDef = 1 потом в батнике выполняется команда config /D путь к базе /N пользователь /P пароль /@ C:\backup.txt вопрос, можно ли сделать что бы архив создавался запароленый? |
|||
1
ДенисЧ
23.08.11
✎
11:48
|
А что, 1с умеет паролить архив выгрузки?
|
|||
2
filh
23.08.11
✎
11:49
|
Password=
|
|||
3
lucifer
23.08.11
✎
11:50
|
(2) спасибо счас попробую
|
|||
4
lucifer
23.08.11
✎
11:51
|
(2) это в [General] добавить?
|
|||
5
filh
23.08.11
✎
11:51
|
(3) это в секции [UnloadData]
|
|||
6
filh
23.08.11
✎
11:51
|
(4)
:) |
|||
7
1Сергей
23.08.11
✎
11:53
|
(1) Здрасти, приехали :)
|
|||
8
Мулька
23.08.11
✎
11:54
|
Нах та выгорузка нужна - директорию базы тоже надо бэкапить. винРар рулит
|
|||
9
chief accountant
23.08.11
✎
11:57
|
(8) Нафига винрар? Просто рар рулит, к тому же он бесплатный
|
|||
10
1Сергей
23.08.11
✎
12:00
|
copy рулит
|
|||
11
andrewks
23.08.11
✎
13:34
|
(9) щозанах "просто рар"? который синенький, по досом? О_о
7-zip рулит |
|||
12
Cthulhu
23.08.11
✎
13:45
|
кобиан бэкап.
который и (11) умеет. |
|||
13
Kookish
23.08.11
✎
13:50
|
У меня так делает:
//----------------------***********-------------------------- Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы() + "Admin1C.dll")=0 Тогда Сообщить("Не обнаружена компонента (Admin1C.dll) в каталоге базы: " + КаталогИБ()); Если Вопрос("Завершить работу программы?","Да+Нет") = "Да" Тогда Возврат; Иначе СтатусВозврата(0); Возврат; КонецЕсли; Иначе ОбъектВК=СоздатьОбъект("AddIn.Admin1C"); ТабПользователи = Создатьобъект("ТаблицаЗначений"); Пользователи=ОбъектВК.ПолучитьПользователей(); Пользователи.Выгрузить(ТабПользователи); Для Стр = 1 По ТабПользователи.КоличествоСтрок() Цикл Пользователь = ТабПользователи.ПолучитьЗначение(Стр,"Имя"); Режим = ТабПользователи.ПолучитьЗначение(Стр,"Режим"); Если (Строка(Пользователь) = ИмяПользователя()) И (Строка(Режим) = "П") Тогда ТабПользователи.УдалитьСтроку(Стр); Прервать; КонецЕсли; КонецЦикла; КонецЕсли; Если ТабПользователи.КоличествоСтрок() = 0 Тогда Если Вопрос("Выполнить сохранение базы данных?","Да+Нет") = "Нет" Тогда Возврат; КонецЕсли; Иначе Возврат; КонецЕсли; ИмяФайлаЯрлыка = КаталогИБ() + "Arhiv.lnk"; ИмяФайлаЗапуска = КаталогИБ() + "PakRun.txt"; Если ФС.СуществуетФайл(ИмяФайлаЯрлыка) = 0 Тогда Предупреждение("Файл запуска " + ИмяФайлаЯрлыка + " не существует!"); Возврат; КонецЕсли; Если ФС.СуществуетФайл(ИмяФайлаЗапуска) = 0 Тогда Предупреждение("Файл настройки " + ИмяФайлаЗапуска + " не существует!"); Возврат; КонецЕсли; ФайлЗапуска = СоздатьОбъект("Текст"); ФайлЗапуска.Открыть(ИмяФайлаЗапуска); Релиз = ""; Для Инд = 1 По Метаданные.Константа() Цикл Объект = Метаданные.Константа(Инд); Если Строка(Объект) = "НомерРелиза" Тогда Релиз = Константа.НомерРелиза; Прервать; Иначе Продолжить; КонецЕсли; КонецЦикла; Релиз = ?(ПустаяСтрока(Релиз) = 0,Константа.НомерРелиза,"..Arh"); Если ПустаяСтрока(Релиз) = 0 Тогда Релиз = Прав(Строка(Релиз),3); КонецЕсли; ТДата = ТекущаяДата(); Zip = "D:\Копии 1С\Ural_" + ДатаГод(ТДата) + "-" + ДатаМесяц(ТДата) + "-" + ДатаЧисло(ТДата) + ".zip"; ЗамСтрока = "SaveToFile=" + Zip; ФайлЗапуска.ЗаменитьСтроку(9,ЗамСтрока); Если ФС.СуществуетФайл(Zip) = 1 Тогда Ответ = Вопрос("Архив за "+ТекущаяДата()+" уже существует! Перезаписать?","Да+Нет"); Если Ответ = "Да" Тогда ФайлЗапуска.Записать(ИмяФайлаЗапуска); Иначе Возврат; КонецЕсли; Иначе ФайлЗапуска.Записать(ИмяФайлаЗапуска); КонецЕсли; ЗапуститьПриложение(ИмяФайлаЯрлыка); ЗавершитьРаботуСистемы(0); //----------------------***********-------------------------- КонецПроцедуры // ПриЗавершенииРаботыСистемы() |
|||
14
Kookish
23.08.11
✎
13:51
|
Для этого нужна только компонента Admin1C.dll
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |