[文件操作] 请大神赐教图片按文件名的批处理

@echo off
setlocal enabledelayedexpansion
REM 请自行设置N1文件夹完整路径
cd /d "D:\Test\N1"
for /f "delims=" %%a in ('dir /b /a-d *.png') do (
    for /f "tokens=4 delims=-" %%b in ("%%a") do (
        set "folder=%%b
        if not exist "!folder!" (
            md "!folder!"
        )
    )
    move /y "%%a" "!folder!"
)
REM 请自行设置N2文件夹完整路径
cd /d "D:\Test\N2"
for /f "delims=" %%a in ('dir /b /a-d *.png') do (
    for /f "tokens=7 delims=-_" %%b in ("%%a") do (
        set "folder=%%b
        if not exist "!folder!" (
            md "!folder!"
        )
    )
    move /y "%%a" "!folder!"
)
复制代码

@echo off
setlocal enabledelayedexpansion
REM 请自行设置5楼文件夹完整路径
cd /d "D:\Test\N5"
for /f "delims=" %%a in ('dir /b /a-d *.png') do (
    for /f "delims=_" %%b in ("%%a") do (
        set "folderL=%%b"
    )
    set "folderL=!folderL:-= !"
    for %%b in (!folderL!) do (
        set "folderN=%%b
    )
    if not exist "!folderN!" (
        md "!folderN!"
    )
    move /y "%%a" "!folderN!"
)
复制代码