Народ, подскажите пожалуйста:
Нужeн батник, который бы удалял из папки в которой лежит те папки, которые не входят в список(лежащий рядом list.txt )
Код который я написал:
Код:

SETLOCAL ENABLEEXTENSIONS
@echo off
call :read_list %~dp0\list.txt || exit /b 1
exit /b 0
:read_list
set LISTFILE=%1
if not exist %LISTFILE% (
echo FAIL: Файл со списком отсутствует
exit /b 1
)
set VAR=no
for /f "usebackq delims==" %%i in (`"dir "%cdd%" /ad /b"`) do (
for /f %%j in (%LISTFILE%) do (
if %%i==%%j (set VAR=yes)
)
if "!VAR!"=="no" (rd /s /q %%i)
set VAR=no)
pause
set VAR=no
)
exit /b 0
Но вот что то он не хочет работать...
Может кто предложит как проще реализовать?