Каталогизатор

@echo off
set "d1=Диск:\папка с папками"
set "d2=Диск:\папка с фото"
set "d3=Диск:\nosort"
 
if not exist "%d3%" md "%d3%"
for /f "tokens=1* delims=_" %%a in ('dir /ad/b "%d1%"') do call :# "%%a" "%d1%\%%a_%%b"
for /f "delims=" %%a in ('dir /a-d/b "%d2%\*.jpg"') do move "%d2%\%%a" "%d3%"
pause& exit
 
:#
 for /f "tokens=1* delims=_" %%a in ('dir /a-d/b "%d2%\*.jpg"^|find "%~1"') do move "%d2%\%%a_%%b" "%~2"
exit /b

@echo off
set "d1=Диск:\папка с папками"
set "d2=Диск:\папка с фото"
set "d3=Диск:\nosort"
 
:: if not exist "%d3%" md "%d3%"
for /f "tokens=1* delims=_" %%a in ('dir /ad/b "%d1%"') do call :# "%%a" "%d1%\%%a_%%b"
:: for /f "delims=" %%a in ('dir /a-d/b "%d2%\*.jpg"') do move "%d2%\%%a" "%d3%"
pause& exit
 
:#
 for /f "tokens=1* delims=_" %%a in ('dir /a-d/b "%d2%\*.jpg"^|find "%~1"') do echo "%d2%\%%a_%%b"
exit /b

@echo off 
for /f "tokens=1,2 delims=_" %%a in ('dir /a:-d /b "%userprofile%\desktop\batch\papka\*.txt"') do (
for /f "tokens=*" %%c in ('dir /a:d /b "%userprofile%\desktop\Batch"^|findstr "%%a"') do (
move "%userprofile%\desktop\Batch\papka\%%a_%%b" "%userprofile%\desktop\Batch\%%c"
)
)
pause

@echo off
set "d1=Диск:\папка с папками"
set "d2=Диск:\папка с фото"
set "d3=Диск:\nosort"
set "exp=jpg"
 
if not exist "%d3%" md "%d3%"
for /f "tokens=1* delims=_" %%a in ('dir /ad/b "%d1%"') do call :# "%%a" "%d1%\%%a_%%b"
for /f "delims=" %%a in ('dir /a-d/b "%d2%\*.%exp%"') do move "%d2%\%%a" "%d3%"
pause& exit
 
:#
 for /f "tokens=1* delims=_" %%a in ('dir /a-d/b "%d2%\*.%exp%"') do if exist "%d2%\%~1_%%b" move "%d2%\%~1_%%b" "%~2"
exit /b