[文件操作] [已解决]求修改批处理7Z打包所有子文件夹(不包含子文件夹本身目录)

smss

@echo off&SetLocal EnableDelayedExpansion
::for /f "delims=" %%i in ('dir /b /a /s *') do (attrib "%%i" +h)>nul
::压缩
for /f "delims=" %%i in ('dir /b /adh %cd%\*') do (for /f "delims=" %%j in ('dir /b /adh %cd%\*') do (
if "%%~nxi" neq "preview" (if "%%~nxi" neq "wallpaper" (if "%%~nxi" neq "description.xml" ("C:\Program Files\7-Zip\7z.exe" a "%%~dpi%%i.zip" "%%j\*">nul
echo %%j压入%%~dpi%%i.zip
)))))
echo ________________________________________________________________________
for /d %%i in ("%cd%\*") do (for /d %%j in ("%%i\*") do echo %%j压入%%i.zip) 
pause
复制代码

不太理想

smss

回复 4# miqilaosu
好

miqilaosu

回复 3# smss

dir /b /ad /adh "%%~dpi%%i*"
复制代码

最好有引号，不然遇到有空格的文件夹会报错

smss

回复 2# miqilaosu
谢谢

@echo off&SetLocal EnableDelayedExpansion
::for /f "delims=" %%i in ('dir /b /a /s *') do (attrib "%%i" +h)>nul
::压缩
for /f "delims=" %%i in ('dir /b /adh "%cd%\*"') do (for /f "delims=" %%j in ('dir /b /ad /adh "%%~dpi%%i*"') do (
if "%%~nxi" neq "preview" (if "%%~nxi" neq "wallpaper" ("C:\Program Files\7-Zip\7z.exe" a "%%~dpi%%i.zip" "%%~dpj%%j\*">nul
echo %%~dpj%%j压入%%~dpi%%i.zip
))))
pause
复制代码

miqilaosu

回复 1# smss

dir /b /adh
复制代码

不加/S不就看不到子目录了吗？缺点是不带路径用到时需要通过%~dp0等自行添加