如下代码,想将代码中的移动文件夹改成移动pdf文件,自己改来改去还是不行,不知道是哪里不对 :'( ..- @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
复制代码
|