@setlocal EnableDelayedExpansion

@rem Путь к архиву с базой, которую надо забрать себе
@set source=\\ardavov-r\Share\S17_7113.zip

@rem Номер задачи в жире; скопированная база будет названа gz-%task%.fdb
@set task=15842

@rem Временная директория; очищается при каждом запуске
@set temp=D:\Work\Databases\Temp

@rem Папка, где лежат все базы
@set databases=D:\Work\Databases\GZ

@if not exist %source% goto :src_file_error
@if not exist %temp% goto :temp_dir_error
@if not exist %databases% goto :db_dir_error
@if exist %databases%\gz-%task%.fdb goto :target_file_error
@if exist %databases%\gz-%task%.7z goto :target_file_error

@rem Почистить временную папку
@pushd .
@cd /D %temp%
@del /F /Q *
@popd

@xcopy %source% %temp%

@pushd .
@for %%i in ("%source%") do @(
  @rem Распаковать и удалить архив
  @cd /D %temp%
  @7z e %%~ni%%~xi
  @cd /D %temp%
  @del /F /Q %%~ni%%~xi

  @rem Переименовать и заархивировать базу
  @ren *.fdb gz-%task%.fdb
  @7z a -mx=5 "gz-%task%.7z" "gz-%task%.fdb"

  @rem Перенос базы и архива с базой в папку со всеми базами
  @move gz-%task%.7z  %databases%
  @move gz-%task%.fdb %databases%
)
@popd

@goto :eof

:src_file_error
@echo Source file does not exist
@goto :eof

:target_file_error
@echo File %databases%\gz-%task%.fdb or %databases%\gz-%task%.7z already exists
@goto :eof

:temp_dir_error
@echo Temp directory does not exist
@goto :eof

:db_dir_error
@echo Databases directory does not exist
@goto :eof