Написать программу для bat файла, создающую каталоги под каждое расширение

@echo off
for /r File for Task_1 %%i in (*.*) do (
if not exist %%i~xi
mkdir folder1
)

@Echo Off
cls
    Set "BoxIn=Z:\Soft_In" 
 
    Pushd "%BoxIn%"||(Echo Folder "%BoxIn%" not found &Pause &Exit /B)
        FOR /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%" /B /A:-D /O:E`) Do  If Not "%%~xf"=="" (
            Set "Ext=%%~xf"
            Call Set "@@@%%Ext:~1%%=%%Ext:~1%%"
        )
        FOR /F "usebackq tokens=1* delims==" %%i In (`2^>nul Set "@@@"`) Do (
            2>nul Md "%%j"
            FOR /F "usebackq delims=" %%f In (`2^>nul Dir "*.%%j" /B /A:-D /O:E ^|FindStr /I /E /C:".%%j"`) Do >nul Move "%%f" "%%j\"
        )
    Popd
Pause
Exit /B

@Echo Off &cls
    Set "BoxIn=Z:\Soft_In" 
 
    Pushd "%BoxIn%"||(Echo Folder "%BoxIn%" not found &Pause &Exit /B)
        FOR /F "usebackq delims=" %%f In (`2^>nul Dir "%BoxIn%" /B /A:-D /O:-E`) Do If Exist "%%f" If Not "%%~xf"=="" (
            Set "Ext=%%~xf"
            Call Md "%%Ext:~1%%" 
            Call >nul Move "*%%~xf" "%%Ext:~1%%\"
        )
    Popd
Pause
Exit /B