![]() |
Автоматическое архивирование баз данных.
Посоветуйте как с помощью 7-Zip или другой бесплатной программы наладить регулярное автоматическое (во время загрузки ОС) архивирование копий баз данных.
|
Ответ: Автоматическое архивирование баз данных.
Цитата:
@ECHO OFF DEL C:\Temp\*.* Copy Путь_к_БД\*.Расширение_ф-лов C:\Temp c:\rar.exe u -r -m1 -dh -std Путь_архивов\db.rar C:\Temp\*.* If Errorlevel 0 goto exok echo ERROR! goto end :exok :end |
Ответ: Автоматическое архивирование баз данных.
Цитата:
|
Ответ: Автоматическое архивирование баз данных.
|
Ответ: Автоматическое архивирование баз данных.
Цитата:
|
Re: Автоматическое архивирование баз данных.
Можно настроить архивацию через пакетный режим самой 1С, а комманду на запуск привязать к какому-либо событию.
|
Re: Автоматическое архивирование баз данных.
Легко настроить архивацию можно с помощью программы xStarter (бесплатная версия для русскоязычных пользователей)
С помощью xStarter вы сможете: Оф - сайт: http://www.xstarter.com/rus/index.html |
Re: Автоматическое архивирование баз данных.
В 7-zip есть мануал-хелп (в папке с программой 7-zip.chm), а в нем есть раздел "Command Line Version User's Guide" с описанием и примерами.
Я сам задачи архивации решаю через Cobian, она бесплатная и легко настраиваемая. В 7-zip, например, не получится удалять старые по времени архивы. А если нужно фильтровать файлы для архива, запускать когда никто не залогинился, хранить последние [N] архивов и т.д. - все в Cobian реализовано и легче настраивается с помощью дружелюбного интерфейса. |
Цитата:
Скрипт VBS. Visual Basic Option Explicit Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim MySource, MyTarget, MyZipName, MyHex, MyBinary, i Dim oShell, oApp, oFolder, oCTF, oFile Dim oFileSys MySource = "C:\Users\AdminKuhar\Documents\1C\DemoTrade" MyTarget = "E:\DemoTrade.zip" MyHex = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) For i = 0 To UBound(MyHex) MyBinary = MyBinary & Chr(MyHex(i)) Next Set oShell = CreateObject("WScript.Shell") Set oFileSys = CreateObject("Scripting.FileSystemObject") Set oCTF = oFileSys.CreateTextFile(MyTarget, True) oCTF.Write MyBinary oCTF.Close Set oCTF = Nothing Set oApp = CreateObject("Shell.Application") Set oFolder = oApp.NameSpace(MySource) If Not oFolder Is Nothing Then oApp.NameSpace(MyTarget).CopyHere oFolder.Items End If wScript.Sleep(5000) Set oFile = Nothing On Error Resume Next Do While (oFile Is Nothing) Set oFile = oFileSys.OpenTextFile(MyTarget, ForAppending, False) If Err.number <> 0 then Err.Clear wScript.Sleep 3000 End If Loop Set oFile=Nothing Set oFileSys=Nothing Он быстро упакует Вашу файловую базу 1С в *zip архив и создаст его на диске, что Вы укажете. Работает быстро и просто. Из настроек, что нужно сделать: MySource = “C:\Users\AdminKuhar\Documents\1C\DemoTrade\” -Каталог с базой 1С. MyTarget = “E:\DemoTrade.zip” -Куда поместить «бэкап». |
В два Этапа:
1) Создал профиль архивирования в программе Winrar 2) Автоматизировал процесс через планировщик задач Windows |
А вообще возможно заархивировать 1с когда пользователи вошли в базу?
|
| Текущее время: 12:49. Часовой пояс GMT +3. |
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2026, vBulletin Solutions, Inc. Перевод: zCarot
Copyright ©2004 - 2025 NoWa.cc