Echo Off
rem -----------------------------------------------------------------------------
rem Выдаём в текстовый файл содержимое архивов в папке и подпапках
rem В параметре bat-файла -путь к директории, где находятся архивы
rem Если в параметре путь не указан, берётся текущая директория
rem

rem Ниже настроить переменные под свои потребности
rem -----------------------------------------------------------------------------

Set ListFile=ListFile.txt
Set Rar="C:\Program Files\WinRAR\Rar.exe"
Set Maska=*.rar

rem -----------------------------------------------------------------------------


if '=='%1 GoTo ThisDir

Echo Директория  "%~1"  ------- %Date%  %Time%  >%ListFile%
for /R "%~1" %%i in (%Maska%) Do Call :RarView "%%~i"

GoTo View

:ThisDir 

Echo Текущая директория  ------- %Date%  %Time%  >%ListFile%
for /R %%i in (%Maska%) Do Call :RarView "%%~i"

:View

Echo -----------------------------------------------------------------------------  >>%ListFile%

GoTo End

:RarView

Echo -----------------------------------------------------------------------------  >>%ListFile%
Echo Архив %1 >>%ListFile%
Echo -----------------------------------------------------------------------------  >>%ListFile%

%Rar% VB %1 >>%ListFile%


:End