Размножить папки по именам в таблице

@echo off&setlocal enabledelayedexpansion&chcp 1251>nul
pushd Исходник
for /f "tokens=1-4 delims=," %%a in ('type ..\Number.csv') do ^
if exist %%a\ call:l %%b %%a&call:l %%c %%a&call:l %%d %%a
exit
:l
if not exist %1\ >nul md %1
for %%j in (%2\*.jpg) do set "n=%%~nxj" &>nul mklink/h "%1\%1!n:~4!" "%%j"

@echo off
setlocal EnableDelayedExpansion
for /f "tokens=1-4 delims=," %%a in (number.csv) do (
    set "%%a=%%b %%c %%d"
)
for /f "tokens=* delims=" %%a in ('dir /ad/b') do (
    call :step_1 "%%a"
)
pause
exit
:step_1
for /f "tokens=1,2 delims==" %%a in ('set %~1') do (
    set temp_var=%%a
    if exist !temp_var! (
        call :step_2 "%%a" "%%b"
    )
)
exit /b
:step_2
for %%a in (%~2) do (
    xcopy /i %1 %%a
    ren "%%a\*.*" %%a_*.*
)
exit /b

@echo off&setlocal enabledelayedexpansion&chcp 1251>nul
for /f "tokens=1* delims=," %%i in ('type Number.csv') do ^
if exist %%i\ for %%# in (%%j) do if not exist %%#\ md %%# & ^
for %%j in (%%i\*.jpg) do set "n=%%~nxj" &>nul mklink/h "%%#\%%#!n:~4!" "%%j"

@echo off
setlocal EnableDelayedExpansion
for /f "tokens=1* delims=," %%a in (number.csv) do (
    set "%%a=%%b"
)
for /f "tokens=* delims=" %%a in ('dir /ad/b') do (
    call :step_1 "%%a"
)
pause
exit
:step_1
for /f "tokens=1,2 delims==" %%a in ('set %~1') do (
    set temp_var=%%a
    if exist !temp_var! (
        call :step_2 "%%a" "%%b"
    )
)
exit /b
:step_2
for %%a in (%~2) do (
    xcopy /i %1 %%a
    ren "%%a\*.*" %%a_*.*
)
exit /b

@echo off
for /f "tokens=1* delims=," %%a in (number.csv) do (
    set "%%a=%%b"
)
for /f "tokens=* delims=" %%a in ('dir /ad/b') do (
    pushd "%%a"
    call :step_1
    popd
)
exit
:step_1
for /f "tokens=* delims=" %%a in ('dir /ad/b') do (
    call :step_2 "%%a"
)
exit /b
:step_2
for /f "tokens=1,2 delims==" %%a in ('set %~1') do (
    call :step_3 "%%a" "%%b"
)
exit /b
:step_3
for %%a in (%~2) do (
    xcopy /i %1 %%a
    ren "%%a\*.*" %%a*.*
)
exit /b