[文件操作] [已解决]批处理如何删除一层文件夹把里面的pdf文件剪切出来放到上一层？

liaoguinan

如何删除一层文件夹把里面的pdf文件剪切出来放到上一层？


E:\测试\001\001-1\1.pdf
E:\测试\001\001-2\2.pdf
E:\测试\001\001-3\5.jpg

E:\测试\002\002-1\1.pdf
E:\测试\002\002-2\2.pdf
E:\测试\002\002-3\5.jpg

结果
E:\测试\001\1.pdf
E:\测试\001\2.pdf
E:\测试\001\001-3\5.jpg

E:\测试\002\1.pdf
E:\测试\002\2.pdf
E:\测试\002\002-3\5.jpg

如图的路径在测试文件夹下遍历判断如果是pdf文件则把上一级文件夹删除，把文件剪切到上一级

pd1

@echo off
set "path=E:\测试\"
for /f "delims=" %%a in ('dir /b/s /a-d %path%*.pdf') do call :m %%a
for /f "delims=" %%a in ('dir /b/s /ad %path%') do rd %%a 2>nul
pause&exit
:m
pushd %~dp1
cd..
move %1 %cd%
popd
复制代码

77七

@echo off
rem 批处理保存为ansi编码格式
cd /d "e:\测试" || exit
(for /d %%d in (*) do (
	for /d %%e in ("%%d\*") do (
		move /-y "%%e\*.pdf" "%%d"
		if errorlevel 0 (
			rd "%%e"
		)
	)
)) 2>nul
pause
复制代码

Five66

不知行否，放到  e:\测试  文件夹里运行

@echo off
for /d %%a in (*) do (
for /f "delims=" %%b in ('dir /s /b "%%~fa\*.pdf"') do (
if "%%~dpb" neq "%%~fa\" (
if not exist "%%~fa\%%~nxb" (
move "%%b" "%%~fa\"
) else (
move "%%b" "%%~fa\%%~nb___%%~nxb"
)
)
rd "%%~dpb" 2>nul
))
复制代码

liaoguinan

回复 4# Five66


    可以运行，但是有个问题是否能解决呢？就是文件名超出系统限定长度的pdf文件好像是不执行操作的

liaoguinan

回复 3# 77七


        可以运行，但是有个问题是否能解决呢？就是文件名超出系统限定长度的pdf文件好像是不执行操作的

77七

回复 6# liaoguinan


   
文件名有多长？

terse

这样的怎么处理
E:\测试\001\001-3\5.jpg
E:\测试\001\001-3\5.pdf
E:\测试\002\002-1\1.jpg
E:\测试\002\002-1\1.pdf

qixiaobin0715

你可以举一个”文件名超出系统限定长度的pdf文件“例子，让大家看看。

@echo off
for /f "delims=" %%i in ('dir /s /b /a-d *.pdf') do (
    move "%%i" "%%~dpi..">nul 2>nul
    if not exist "%%~dpi.\*.pdf" rd "%%~dpi" 2>nul
)
pause
复制代码