@echo off
setlocal EnableDelayedExpansion

rem 设置源目录和目标目录
set "sourceFolder=C:\Users\Administrator\Desktop\测试\1移动文件"
set "targetFolder=C:\Users\Administrator\Desktop\测试\2目的地"

rem 定义关键词
set "keyword=赵小强"

rem 遍历源目录下的文件
for /r "%sourceFolder%" %%f in (*.*) do (
    set "fileName=%%~nxf"
    if not "!fileName!"=="!fileName:*%keyword%=!" (
        rem 在目标目录下查找包含关键词的文件夹
        for /d %%d in ("%targetFolder%\*%keyword%*") do (
            set "targetSubFolder=%%d"
            echo Moving "%%f" to "!targetSubFolder!"
            move "%%f" "!targetSubFolder!" >nul 2>nul
            if!errorlevel! NEQ 0 (
                echo Failed to move "%%f" to "!targetSubFolder!". Error code:!errorlevel!
                rem 尝试处理一些常见错误
                if!errorlevel! equ 2 (
                    echo Permission denied. Check folder permissions.
                ) elseif!errorlevel! equ 3 (
                    echo File not found. Double-check the source file path.
                ) elseif!errorlevel! equ 5 (
                    echo Access denied. Check file permissions.
                ) else (
                    echo Unknown error occurred. Error code:!errorlevel!
                )
            )
        )
    )
)

echo All files have been processed.
pause
endlocal
复制代码

一个问题是 for /d %%d in ("%targetFolder%\*%keyword%*") do (...) 运行中如发现多个包含关键词的子目录咋办

@echo off
pushd "%~dp02目的地"
for /f "delims=" %%i in ('dir /b /ad') do (
	for /f "delims=0123456789" %%j in ("%%i") do (
		move "%~dp01移动文件\*%%j*" "%%i\"
	)
)
popd&pause&exit/b
复制代码

@echo off &for %%w in (
      小明, 小红, 小蓝
) do for /d %%d in ("B\*%%w*") do move /y "A\*%%w*.*" "%%d\"
pause&exit/b
复制代码