Бэкап данных посредством 7-zip через консоль с очисткой

Зачастую, необходимо делать бэкапы данных, при этом делать это таким образом, чтобы старые бэкапы автоматически удалялись, для экономии места на диске. Описанный ниже способ копирования данных применим на любой машине под управлением Microsoft Windows, тестировалось на Windows версий XP, Vista, 2003 server и 2008 server.

Нам потребуется архиватор 7-zip и немного времени для работы в Notepad (блокнот – стандартный текстовый редактор Windows)

Зачастую, необходимо делать бэкапы данных, при этом делать это таким образом, чтобы старые бэкапы автоматически удалялись, для экономии места на диске. Описанный ниже способ копирования данных применим на любой машине под управлением Microsoft Windows, тестировалось на Windows версий XP, Vista, 2003 server и 2008 server.

Нам потребуется архиватор 7-zip и немного времени для работы в Notepad (блокнот – стандартный текстовый редактор Windows)

Зачастую, необходимо делать бэкапы данных, при этом делать это таким образом, чтобы старые бэкапы автоматически удалялись, для экономии места на диске. Описанный ниже способ копирования данных применим на любой машине под управлением Microsoft Windows, тестировалось на Windows версий XP, Vista, 2003 server и 2008 server.

Нам потребуется архиватор 7-zip и немного времени для работы в Notepad (блокнот – стандартный текстовый редактор Windows)

Комментарии (8)

  • Антон
    #

    В батники вместо # нужно писать REM. А скрипт не работает вообще – выдается ошибка “Предполагаться наличие инструкций”

  • #

    fso.GetAbsolutePathName(”.”) – точку заменил на путь вида D:\Backup\
    Set dFolder = fso.GetFolder(strRootPath)

    Вроде заработало :)

  • Антон
    #

    С русскими именами никаких проблем нет. Просто файл нужно сохранять в 866 кодировке!

  • Андрей
    #

    Доброго времени суток, выдает ошибку “Индекс выходит за пределы допустимого диапазона”

  • dj_casanova
    #

    Patirot Путь ввода заменили на D:\Backup\
    Set dFolder = fso.GetFolder(strRootPath)
    получили fso.GetAbsolutePathName(”D:\Backup\
    Set dFolder = fso.GetFolder(strRootPath)”)
    где если следовать примеру нужно указывать F:\Backup\
    Set dFolder = fso.GetFolder(strRootPath)
    Но, суть вопроса не в этом.
    У меня опять ругнулся на 5,1 пятую строчку …может там тоже нужны метоморфозы))) Если укажите буду благодарен.

  • Алексей
    #

    to dj_casanova
    Перед комментариями ставить знак ‘

  • #

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

  • #

    Всех описанных выше недостатков лишена бесплатная программа copymik. Она не создаёт огромных архивов а копирует сжимая а при нужде и шифруя каждый файл отдельно. Если в целевой папке такой файл уже существует может сначала скопировать его в третью папку (имя которой настраивается, напр. состоит из даты и времени) и только потом заменит. Не имеет проблем с кириллицей и сверхдлинными путями. Может переименовывать и транслитерировать имена файлов и имеет кучу других возможностей. Ссылку не ставлю т.к. легко гуглится. Рекомендую последнюю сборку 2.20а… последняя версия есть на www.superbasis.de см. ночную сборку. Успехов.