Pergunta 551559 Fechada do pt stackoverflow

@echo off

Setlocal EnableDelayedExpansion
cd /d "%~dp0" && chcp 1252 >nul
Title Criar Pastas para cada arquivo

set "_jpegs=%~n1"
if defined _jpegs set "_dir=!_jpegs:-%_jpegs:*-=%=!"

if "%~1" == "" (
     for /f tokens^=1*delims^=-^  %%i in ('where .:*.jpeg')do 2>nul (
        mkdir "%%~i"| move /y "%%~i-*.jpeg" "%%~i" ))else 2>nul (
     mkdir "!_dir!" | move /y "!_dir!-*.jpeg" "!_dir!"
    )

endlocal & timeout -1 | tree /f /a | find /v "%~nx0"