@echo off & title 
color 0a & cd /d %~dp0
 
::设置文件最终保存路径，末尾无需添加斜杆
set SavDir=E:123
 
::设置文件夹列表文件
set List=文本.txt
 
::设置日志文件
set Log=操作日志.log
 
echo 正在执行搜索、移动中，请耐心等待。。。
(for /f "delims=" %%a in ('type "%List%"') do (
    for /r /d %%b in ("%%~a*") do (
        if "%%~nxb"=="%%~a" (
            set L=1
            xcopy /y /s /e /h "%%~b" "%SavDir%\%%~nxb\" >nul 2>nul && (
                rd /s /q "%%~b" >nul 2>nul && (
                    echo %%~a : 移动成功。（源路径 "%%~b"）
                ) || (
                    echo %%~a : 拷贝成功，但源文件夹无法正常删除。（源路径 "%%~b"）
                )
            ) || (
                echo %%~a : 移动失败。（源路径 "%%~b"）
            )
        )
    )
))>"%log%"
 
if not defined L echo 未找到列表文件中列出的文件夹。>"%log%"
echo, & echo 完成，请按任意键退出。
pause>nul & exit
复制代码

xcopy d:\abc\*.pdf e:\def\ /e/k/c/y/s
复制代码