@echo off & title 
color 0a & cd /d %~dp0
 
::設(shè)置文件最終保存路徑，末尾無需添加斜桿
set SavDir=E:123
 
::設(shè)置文件夾列表文件
set List=文本.txt
 
::設(shè)置日志文件
set Log=操作日志.log
 
echo 正在執(zhí)行搜索、移動中，請耐心等待。。。
(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
nclick="copycode($('code0'));">復(fù)制代碼