Windows 10 - Cómo buscar las carpetas cuyo nombre contenga una determinada palabra

@ECHO OFF

SET Texto=PR@

SET Entrad=File_Ent.tmp

SET Salida=File_Sal.tmp

DIR  /S /B /A:D >%Entrad%

TYPE nul >%Salida%

For /F "delims==" %%a in (%Entrad%) do call :Buscar "%%a"

ECHO.

ECHO. Contenido de %Salida%

ECHO.

TYPE %Salida%

DEL  %Entrad%

goto :EOF

:Buscar

   set Dir=%1

   set Dir=%Dir:~1,-1%

   echo %Dir% | Findstr /i %Texto% >nul

   if %ErrorLevel% == 1 goto:EOF

   Findstr /L "%Dir%" %Salida% >nul

   if %ErrorLevel% == 0 goto:EOF

   echo %Dir%>>%Salida%

   goto :EOF