[文件操作] [已解决]批处理怎样取文件名中内容为文件夹名，并移动文件？

@echo off
for /f "delims=" %%i in ('dir /b /s /a-d *.dxf') do (
    for /f "tokens=4 delims=-" %%j in ("%%i") do (
        if not exist "%%~dpi%%j\" (
            md "%%~dpi%%j"
        )
        move /y "%%i" "%%~dpi%%j"
    )
)
复制代码

@echo off
for /d %%i in (*) do (
    pushd "%%i"
    for /d %%j in (*) do (
        for %%k in (%%j\*.dxf) do (
            for /f "tokens=4 delims=-" %%l in ("%%~nk") do (
                if not exist "%%j\%%l\" (
                    md "%%j\%%l"
                )
                move /y "%%k" "%%j\%%l"
            )
        )
    )
    popd
)
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1,2* delims=-" %%i in ('dir /a-d /b *.dxf') do (
set "n=%%j"
md "!n:~,5!\" 2>nul
move "%%i-%%j-%%k" "!n:~,5!\"
)
复制代码

@echo off
setlocal enabledelayedexpansion
for /d %%i in (*) do (
    pushd "%%i"
    for /d %%j in (*) do (
        for %%k in (%%j\*.dxf) do (
            for /f "tokens=4 delims=-" %%l in ("%%~nk") do (
                set NewFolder=%%l
                for /f "delims=0123456789" %%m in ("%%l") do (
                    if "%%m" neq "" (
                        set NewFolder=!NewFolder:%%m=!
                    )
                )
                if not exist "%%j\!NewFolder!\" (
                    md "%%j\!NewFolder!"
                )
                move /y "%%k" "%%j\!NewFolder!"
            )
        )
    )
    popd
)
复制代码

@echo off
pushd "AA版"
for /f "delims=" %%i in ('dir /b /s /a-d *.dxf') do (
    move /y "%%i" ..
)
popd
pause
复制代码