Удаление неиспользуемых журналов регистрации 1С 8

На сервере приложений есть служебная папка C:\Program Files\1cv82\srvinfo\reg_1541\ в которой хранятся журналы регистраций всех баз, которые когда-либо были приписаны к этому серверу. Для каждой БД создается отдельная подпапка с названием равным айдишнику БД.

папка srvinfoпапка srvinfo

Понятно что часть папок уже не имеют смысла т.к. база данных давно была удалена. Тем не менее они занимают определенное место. Предлагаю удалить их. Чтоб понять какие базы больше не используются будем искать ее айдишник в файлике 1CV8Reg.lst, который находится тут же и содержит все активные БД, зарегистрированне на сервере приложений.

Пишем батник:

@echo off
IF NOT EXIST 1CV8Reg.lst GOTO :Err

FOR /D %%i in ("????????-????-????-????-????????????") DO Call:Sub %%i
echo Ok! Unused folders deleted!
pause
GOTO :EOF

:Err
echo Error! File 1CV8Reg.lst doesn't exist in current folder!
echo You should run this script in
echo the C:\Program Files\1cv82\srvinfo\reg_1541\
echo or like this. Read more here http://1csoft.com/node/938
pause
GOTO :EOF

:Sub
findstr %~1 1CV8Reg.lst > nul
if errorlevel 1 (echo Remove %~1 ...)
if errorlevel 1 (RD /s /q %~1)
GOTO :EOF

Скрипт следует запускать в папке C:\Program Files\1cv82\srvinfo\reg_1541\.
Первым делом идет проверка наличия файла 1CV8Reg.lst, если его нет, то прекратим работу, чтоб избежать epicfail с удалением всех папок. Далее идет перебор папок с вызовом для каждой процедуры Sub. В Sub мы ищем подстроку в файле 1CV8Reg.lst, и удаляем всю папку, если подстрока не найдена.Ну и конечно используйте данный скрипт на свой страх и риск.

Похожие материалы

Справочники

Документы

Отчеты

Обработки