Получение из строки части до знака подчёркивания:
for /f "delims=_" %J in ("стро_ка") do rem Что то делаем с %J - частью строки до "_"
В вашем случае:
for %I in (*.jpg) do for /f "delims=_" %J in ("%I") do (
if not exist "%J\" md "%J"
move "%~I" "%J\"
)
— скопируйте целиком и вставьте в консоль с CMD.EXE, запущенном в режиме обработки команд из входного потока.
Или сохраните в командный файл, заменив все
%
на
%%
.