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
Echo Off
rem -----------------------------------------------------------------------------
rem Выдаём в текстовый файл содержимое архивов в папке и подпапках
rem В параметре bat-файла -путь к директории, где находятся архивы
rem Если в параметре путь не указан, берётся текущая директория
rem
rem Ниже настроить переменные под свои потребности
rem -----------------------------------------------------------------------------
Set ListFile=ListFile.txt
Set Rar="C:\Program Files\7-Zip\7z.exe"
Set Maska=*.zip
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% l %1 >>%ListFile%
:End
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.