Arquivo de lote WinRAR para compactar o primeiro subdiretório em cada pasta em um zip

@echo off 

set "_flag=a -ep1 -m5 -cfg- -y -o+"
cd /d "%~dp0" && for /d /r "I:\test\." %%i in (*
)do 2>nul tree.com /a "%%~dpnxi"|findstr /bl \\--- >nul || (
"%ProgramFiles%\WinRAR\Rar.exe" %_flag% "%%~i" "%%~dpni" |find/i ".rar" )

Para chegar ao último nível de uma subpasta, basta verificar se em cada subpasta existe outra pasta ali, caso contrário, compacte esta pasta de último nível.

Você pode usar o for /d /rloop, que passará por todas as pastas, e em cada pasta dentro do loop, usar o treecomando junto com findstr, onde você pode verificar se a pasta atual tem ou não mais subpastas.

• FOR /R - Loop through files (recursively)
  FOR /D - Loop through several folders/directories

• The option /D /R is undocumented, but can be a useful combination,
  while it will recurse through all subfolders the wildcard will only
  match against Folder/Directory names (not filenames)
  Note: Source linked to ss64.com

Você pode usar o em todas as subpastas recursivamente com , e verificando cada saída com findstr "string" ( ) redirecionando para o operador e execute a ação ( ) se não encontrar esta string na saída do comando :tree "current_looping_folder" /afor /d /r"\---"||Rar\---tree\---Last Folder

Folder PATH listing
Volume serial number is A0AD-DC56
F:\SUPER_USER\Q1599429
\---Last Folder

A saída acima é da pasta onde estou, F:\SUPERUSER\Q1599429e aqui temos a Last Foldersubpasta, mas se estou na F:\SUPER_USER\Q1599429\Last Foldersubpasta, recebo a saída abaixo:

Folder PATH listing
Volume serial number is A0AD-DC56
F:\SUPER_USER\Q1599429\Last Folder
No subfolders exist

Se findstrnão encontrar a string "\---", não tenho subpasta na pasta atual, esta é a última pasta:

F:\SUPER_USER\Q1599429\Last Folder

Neste caso, se não houver subpasta, o comando command não terá sucesso, fazendo com que o operador execute o comando exatamente na sua última pasta do nível de pasta real...tree "Actual_Loop_Folder" /a | findstr "\---"||Rar.exe

• Obs.: 1 O adicional \é necessário para escapar do caractere \emfindstr

 ... tree.com /a "%%~dpnxi"|findstr /bl \\--- ... 

• Obs.: 2 Isso tentará ilustrar como o ||operador trabalha mecanicamente:

                         command1 || command2
                 execute command1 || only execute command2 (if) command1 fails
          if tree folder /a fails || there is no subfolder in it
      there is no subfolder in it || this is the the last subfolder
       this is the last subfolder || run rar flags in the \Last Folder
tree /a "%~fi"|findstr "\---">nul || Rar "I:\Unsorted\...\PCSE00398"

• Obs.: 3 Caso precise rodar com , basta remover/ WinRar.exesubstituir Rar.exe/editar:

"%ProgramFiles%\WinRAR\Rar.exe" %_flag% "%%~i" "%%~dpni" |find/i ".rar"

"%ProgramFiles%\WinRAR\WinRar.exe" %_flag% "%%~i" "%%~dpni" 

• Obs.: 4 Você pode editar para usar seus flags/switches personalizados para o seu Rar/WinRarcomando:

<Commands>
        a    ==  Add files to archive 

<Switches>

      cfg-   ==  Disable read configuration 
      ep1    ==  Exclude base directory from names 
  m<0..5>    ==  Set compression level (0-store...3-default...5-maximal) 
   o[+|-]    ==  Set the overwrite mode 
        y    ==  Assume Yes on all queries 
-----------------------------------------------------------------------
set "_flag=a -ep1 -m5 -cfg- -y -o+"

• Algumas leituras adicionais:

[√] Para Loop

[√] Para /D Loop

[√] Para Loop /R

[√] WinRar.exe | Rar.exe /?

[√] Operador de CMD/Bat /dostips.com

[√] Execução Condicional || && ...