xp3000

@echo off
setlocal enabledelayedexpansion
for /f %%i in ('dir /b 文件.txt') do (
for /f %%a in (%%i) do (
set "f=%%a"&set "s=!f:%%~nxa=!"
    if not defined !s! (
        set !s!=1
        MD "d!s:~1!" 2>nul
        )
    copy "!f!" "d!s:~1!%%~nxa"
    )
)
pause & exit/b
复制代码

D盘

xp3000

回复 3# tanrr

不好意思没测试就发了，已经改了