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

:: архивирование и залив на FTP-файлопомойку.
cd /d "%~dp0"
chcp 65001
cls
 
set PROJ_NAME=mega_project
 
:: локальная папка, куды архивировать
set LOCAL_PATH=k:\ftp\my\%PROJ_NAME%
:: имя архива с путём 
set ARC_NAME=%LOCAL_PATH%\%PROJ_NAME%.7z
:: URL архива на FTP-сервере после закачки его втуды
set URL=ftp://filejunkyard.ru/my/%PROJ_NAME%/%PROJ_NAME%.7z
 
:: ---------- удаление старой копии архива ------------
if exist %ARC_NAME% del %ARC_NAME%
if not errorlevel 0 goto error
 
:: ----------------- архивирование --------------------
%SOFT%\7-Zip\7z.exe a %ARC_NAME% * x=9 -r -x@excludes.txt
if not errorlevel 0 goto error
 
:: ----------------- закачка на FTP -------------------
cd /d %LOCAL_PATH%
ncftpput -u admin -p ************ -m filejunkyard.ru /my/%PROJ_NAME% %PROJ_NAME%.7z
if not errorlevel 0 goto error
 
::pause
:: ---------------- выход без ошибок ------------------
:success
@echo                   ########################################
@echo                   #          ВСЁ НИШТЯК, ЧУВАК!!!        #
@echo                   ########################################
@echo .
 
:: копирование ссылки на скачивание в буфер обмена
@echo %URL% | clip
timeout /t 2
exit
 
:: ---------------- выход по ошибке -------------------
:error
@echo ********* Error #%errorlevel% ***********
pause

@echo off
setlocal enabledelayedexpansion
set mod_date=%date:.=%
set mod_time=%time::=%
pushd "D:\Табель МЕД\%COMPUTERNAME%"
"C:\Program Files\7-Zip\7z.exe" a -tzip "%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "D:\Табель МЕД\%COMPUTERNAME%"
popd
xcopy "D:\Табель МЕД\%COMPUTERNAME%\%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "\\Server\ГрафикиИТабели\Табель ПАТ\"
xcopy "D:\Табель МЕД\%COMPUTERNAME%\%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\*.zip"
        for /f "tokens=* delims=" %%a in ('dir *.zip /a-d/b/o-d/tw') 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\ГрафикиИТабели\Табель ПАТ\*.zip"
        for /f "tokens=* delims=" %%a in ('dir *.zip /a-d/b/o-d/tw') do (
            set /A count_2+=1
            if !count_2!==1 (
                del /f /q "%%a"
            )
        )
        popd
    )
)
pause

@echo off
setlocal enabledelayedexpansion
set mod_date=%date:.=%
set mod_time=%time::=%
pushd "D:\Табель МЕД\%COMPUTERNAME%"
"C:\Program Files\7-Zip\7z.exe" a -tzip "%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "D:\Табель МЕД\%COMPUTERNAME%"
popd
xcopy "D:\Табель МЕД\%COMPUTERNAME%\%COMPUTERNAME%_%mod_date%%mod_time:~,-3%.zip" "\\Server\ГрафикиИТабели\Табель ПАТ\"
xcopy "D:\Табель МЕД\%COMPUTERNAME%\%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/o-d/tw') 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/o-d/tw') do (
            set /A count_2+=1
            if !count_2!==1 (
                del /f /q "%%a"
            )
        )
        popd
    )
)
pause