@echo off
for /f "delims=" %%F in (
    ' dir /b/a-d^|findstr /rb "[^0-9\.]*[0-9]" ') do for /f "tokens=1* delims=0123456789" %%a in ("%%~nF") do (
    if not exist "【%%a】\" md "【%%a】\"
    move /y "%%F" "【%%a】\"
)
pause&exit/b
复制代码

@echo off
setlocal enabledelayedexpansion
rem 下面一行修改你的文件后缀名
set "hz=txt"
cls
for /f %%a in ('dir *.%hz% /b') do (
set line=%%a
	for /f "tokens=1 delims=-" %%b in ("!line:~0,2!") do echo 完整文件名：!line!，准备新建的文件夹为：%%b
)
pause
复制代码

@echo off
cd /d "%~dp0"

setlocal enabledelayedexpansion

for /f "delims=" %%D in ('dir /ad /b /s') do (
    pushd "%%D"
    for /f "delims=" %%i in ('dir /b /a-d "*-*"') do (
        set "filename=%%i"
        set "folderName="
        for /f "tokens=1* delims=-" %%a in ("!filename!") do (
            set "folderName=%%a"
            set "folderName=!folderName:~0,-1!"  // 新增这一行，去除数字部分
            if not exist "!folderName!" (
                md "!folderName!"
            )
            move "%%i" "!folderName!"
        )
    )
    popd
)

endlocal
pause
复制代码

@echo off
setlocal enabledelayedexpansion

for /f "tokens=1* delims=0123456789" %%a in ('dir /b /a-d ^|find /v "%~nx0"') do (
    set "folderName=%%a"
    if not exist "!folderName!\" (
        md "!folderName!\"
    )
    move "%%a*%%b" "!folderName!\" 2>nul
)

echo Files have been moved to their respective folders.
pause
endlocal
复制代码

@echo off
for /f "delims=" %%F in (
    ' dir /b/s/a-d^|findstr /rb "[^0-9\.]*[0-9]" ') do for /f "tokens=1* delims=0123456789" %%a in ("%%~nF") do (
    if not exist "【%%a】\" md "【%%a】\"
    move /y "%%F" "【%%a】\"
)
pause&exit/b
复制代码

@echo off
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /s /a-d ^|find /v "%~f0"') do (
	for /f "delims=0123456789" %%a in ("%%~ni") do (
		md "%%~dpi\%%a" 2>nul
		move "%%i" "%%~dpi\%%a\"
	)
)
pause
复制代码

@echo off  
setlocal enabledelayedexpansion  
  
:: 定义一个变量来跟踪已经创建的文件夹  
set "createdFolders="  
  
:: 定义递归遍历子目录的函数  
call :processDirectory "%cd%"  
goto :eof  
  
:processDirectory  
pushd "%~1"  
  
:: 如果不是根目录，则遍历当前目录下的所有文件  
if not "%~1"=="%cd%" (  
    for /f "tokens=1* delims=0123456789" %%a in ('dir /b /a-d ^| find /v "%~nx0"') do (  
        set "folderName=%%a"  
        set "folderPath=!folderName!\"  
  
        :: 检查文件夹是否已经创建  
        echo !createdFolders! | find /i "!folderName!" >nul  
        if errorlevel 1 (  
            :: 文件夹未创建，创建文件夹  
            if not exist "!folderPath!" (  
                md "!folderPath!"  
                :: 将已创建的文件夹添加到跟踪变量中  
                set "createdFolders=!createdFolders! !folderName!"  
            )  
        )  
  
        :: 移动文件到文件夹  
        move "%%a*%%b" "!folderPath!" 2>nul  
    )  
)  
  
:: 遍历当前目录下的所有子目录，并递归调用自身  
for /d %%D in (*) do (  
    call :processDirectory "%%D"  
)  
  
:: 返回到上一级目录  
popd  
goto :eof  
  
:eof  
echo Files have been moved to their respective folders in subdirectories.  
pause  
endlocal
复制代码

@echo off
for /f "delims=" %%F in ('dir /b/s/a-d') do if /i "%%~xF" neq ".bat" (
    for /f "tokens=1 delims=0123456789" %%a in ("%%~nF") do if /i "%%~nF" neq "%%a" (
	    if not exist "【%%a】\" md "【%%a】\"
	    move /y "%%F" "【%%a】\"
	)
)
pause&exit/b
复制代码