Нужен батник который делает архив папки, копирует ее на локальный компьютер и на сервер

@Sh0ck3r · Регистрация: 17.09.2019

Студворк — интернет-сервис помощи студентам

Нужен батник который делает архив папки, копирует ее на локальный компьютер и на сервер, делает 20 копий а потом удаляет самый старый. В имени файла архива должно быть Имя компьютера: DDMMYYYYHHMMSS. Чтобы независимо где находится работал не указывая пути и реализовать это все нужно через переменные. Спасибо заранее!

@Karen87 · 12.10.2020, 00:49

Sh0ck3r, или у Вас в папке "D:\Табель" без подкаталога с наименованием отделения файлы лежат? Если так, то:

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
@echo off
setlocal enabledelayedexpansion
set mod_date=%date:.=%
set mod_time=%time::=%
set "folder=D:\Табель"
pushd "%folder%"
"C:\Program Files\7-Zip\7z.exe" a -tzip "%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "%folder%"
popd
xcopy "%folder%\%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "\\Server\ГрафикиИТабели\Табель ПАТ"
xcopy "%folder%\%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "D:\Backup"
for %%a in ("D:\Backup\*.zip") do (
    set /A count_1+=1
    if !count_1! geq 20 (
        pushd "D:\Backup"
        for /f "tokens=* delims=" %%a in ('dir *.zip /a-d/b/od/tc') do (
            set /A count_2+=1
            if !count_2!==1 (
                del /f /q "%%a"
            )
        )
        popd
    )
)
set count_1=
set count_2=
for %%a in ("\\Server\ГрафикиИТабели\Табель ПАТ\*.zip") do (
    set /A count_1+=1
    if !count_1! geq 20 (
        pushd "\\Server\ГрафикиИТабели\Табель ПАТ"
        for /f "tokens=* delims=" %%a in ('dir *.zip /a-d/b/od/tc') do (
            set /A count_2+=1
            if !count_2!==1 (
                del /f /q "%%a"
            )
        )
        popd
    )
)
pause

@Sh0ck3r · 12.10.2020, 08:29 **[ТС]**

Вот так сейчас выглядит папка:

@Sh0ck3r · 12.10.2020, 10:03 **[ТС]**

Все спасибо, разобрался в чем дело. Работают оба варианта, спасибо огромное!

Добавлено через 1 час 25 минут
А может можно все-таки чтобы по слову табель находило что архивировать, а названия папок могли быть разными (Табель ХО1,ХО2 и т.д.)? И еще нужно чтобы командная строка не была видна при выполнении.

@Karen87 · 12.10.2020, 13:44

Сообщение от Sh0ck3r

А может можно все-таки чтобы по слову табель находило что архивировать, а названия папок могли быть разными (Табель ХО1,ХО2 и т.д.)? И еще нужно чтобы командная строка не была видна при выполнении.

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
@echo off
setlocal enabledelayedexpansion
nircmd elevatecmd exec hide
set mod_date=%date:.=%
set mod_time=%time::=%
for /f "tokens=* delims=" %%a in ('dir /ad/b D:\ ^| findstr /b /rc:"Табель [A-Z0-9]*") do (
    set "folder=%%a"
)
pushd "D:\%folder%"
"C:\Program Files\7-Zip\7z.exe" a -tzip "%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "D:\%folder%"
popd
xcopy "D:\%folder%\%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "\\Server\ГрафикиИТабели\Табель ПАТ"
xcopy "D:\%folder%\%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "D:\Backup"
for %%a in ("D:\Backup\*.zip") do (
    set /A count_1+=1
    if !count_1! geq 20 (
        pushd "D:\Backup"
        for /f "tokens=* delims=" %%a in ('dir *.zip /a-d/b/od/tc') do (
            set /A count_2+=1
            if !count_2!==1 (
                del /f /q "%%a"
            )
        )
        popd
    )
)
set count_1=
set count_2=
for %%a in ("\\Server\ГрафикиИТабели\Табель ПАТ\*.zip") do (
    set /A count_1+=1
    if !count_1! geq 20 (
        pushd "\\Server\ГрафикиИТабели\Табель ПАТ"
        for /f "tokens=* delims=" %%a in ('dir *.zip /a-d/b/od/tc') do (
            set /A count_2+=1
            if !count_2!==1 (
                del /f /q "%%a"
            )
        )
        popd
    )
)
pause

Примечание.
Утилита nircmd во вложении

@Karen87 · 12.10.2020, 13:45

nircmd

@Sh0ck3r · 12.10.2020, 14:05 **[ТС]**

как он работает? И еще можно ли сделать чтобы если книга открыта, все равно архивировалась?

@Karen87 · 12.10.2020, 14:13

Sh0ck3r, а можно сразу озвучить все хотелки, а?!

@Karen87 · 12.10.2020, 14:23

3 строчку кода заменить на:

Windows Batch file
1
cmdow @ /HID

Утилита во вложении

@Karen87 · 12.10.2020, 14:38

Либо меняете 3 строчку на:

Windows Batch file
1
nircmd win hide title "%ComSpec%"

Добавлено через 3 минуты
Точнее ставим указанные строки первыми

@Sh0ck3r · 12.10.2020, 15:59 **[ТС]**

Спасибо, работает. Больше нет хотелок, осталось сделать чтобы когда книга открыта все равно архивировалось и название папки чтобы можно было с отделением.

@Karen87 · 12.10.2020, 17:04

Сообщение от Sh0ck3r

чтобы когда книга открыта все равно архивировалось и название папки чтобы можно было с отделением.

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
nircmd win hide title "%ComSpec%"
@echo off
setlocal enabledelayedexpansion
set mod_date=%date:.=%
set mod_time=%time::=%
for /f "tokens=* delims=" %%a in ('dir /ad/b D:\ ^| findstr /b /rc:"Табель [A-Z0-9]*") do (
    set "folder=%%a"
)
pushd "D:\%folder%"
"C:\Program Files\7-Zip\7z.exe" a -tzip -ssw "%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "D:\%folder%"
popd
xcopy "D:\%folder%\%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "\\Server\ГрафикиИТабели\Табель ПАТ"
xcopy "D:\%folder%\%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "D:\Backup"
for %%a in ("D:\Backup\*.zip") do (
    set /A count_1+=1
    if !count_1! geq 20 (
        pushd "D:\Backup"
        for /f "tokens=* delims=" %%a in ('dir *.zip /a-d/b/od/tc') do (
            set /A count_2+=1
            if !count_2!==1 (
                del /f /q "%%a"
            )
        )
        popd
    )
)
set count_1=
set count_2=
for %%a in ("\\Server\ГрафикиИТабели\Табель ПАТ\*.zip") do (
    set /A count_1+=1
    if !count_1! geq 20 (
        pushd "\\Server\ГрафикиИТабели\Табель ПАТ"
        for /f "tokens=* delims=" %%a in ('dir *.zip /a-d/b/od/tc') do (
            set /A count_2+=1
            if !count_2!==1 (
                del /f /q "%%a"
            )
        )
        popd
    )
)
pause

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@Sh0ck3r 0 / 0 / 0 Регистрация: 17.09.2019 Сообщений: 90

	Нужен батник который делает архив папки, копирует ее на локальный компьютер и на сервер 09.10.2020, 09:04. Показов 4745. Ответов 50 Метки bat, cmd (Все метки) Нужен батник который делает архив папки, копирует ее на локальный компьютер и на сервер, делает 20 копий а потом удаляет самый старый. В имени файла архива должно быть Имя компьютера: DDMMYYYYHHMMSS. Чтобы независимо где находится работал не указывая пути и реализовать это все нужно через переменные. Спасибо заранее! 0

@Sh0ck3r 0 / 0 / 0 Регистрация: 17.09.2019 Сообщений: 90
	12.10.2020, 08:29 [ТС]
	Вот так сейчас выглядит папка: Миниатюры 0

@Sh0ck3r 0 / 0 / 0 Регистрация: 17.09.2019 Сообщений: 90
	12.10.2020, 10:03 [ТС]
	Все спасибо, разобрался в чем дело. Работают оба варианта, спасибо огромное! Добавлено через 1 час 25 минут А может можно все-таки чтобы по слову табель находило что архивировать, а названия папок могли быть разными (Табель ХО1,ХО2 и т.д.)? И еще нужно чтобы командная строка не была видна при выполнении. 0

@Sh0ck3r 0 / 0 / 0 Регистрация: 17.09.2019 Сообщений: 90
	12.10.2020, 14:05 [ТС]
	как он работает? И еще можно ли сделать чтобы если книга открыта, все равно архивировалась? 0

@Karen87 3449 / 1110 / 494 Регистрация: 29.05.2016 Сообщений: 4,566
	12.10.2020, 14:13
	Sh0ck3r, а можно сразу озвучить все хотелки, а?! 0

@Sh0ck3r 0 / 0 / 0 Регистрация: 17.09.2019 Сообщений: 90
	12.10.2020, 15:59 [ТС]
	Спасибо, работает. Больше нет хотелок, осталось сделать чтобы когда книга открыта все равно архивировалось и название папки чтобы можно было с отделением. 0

Нужен батник который делает архив папки, копирует ее на локальный компьютер и на сервер

Решение