CMD/BAT - [решено] Удаление одинаковых файлов в подкаталогах

CMD/BAT - [решено] Удаление одинаковых файлов в подкаталогах

njg

Новый участник

Сообщения: 46
Благодарности: 3

Изменения

Автор: njg
Дата: 17-11-2011

Решил почистить резервные копии от дубликатов. Задача в следующем:
Необходимо сравнить все *.rar-файлы в "сегодняшнем" каталоге с файлами во всех "старых" каталогах и удалить одинаковые по размеру (удалять только из папок со старыми резервными копиями, в текущей не трогать).
Резервные копии лежат в папках типа "_backup_2011-11-17" и создаются каждый день, кроме выходных.
Название "сегодняшнего" каталога было бы удобно передавать в скрипт в качестве параметра.

Нашел скрипт от megaloman, но не смог адаптировать его под перебор фалов в подкаталогах. Прошу помощи.

Код:

@Echo Off

Set Otkuda=D:\Delete
Set S1=-1

FOR /F "usebackq delims=" %%f IN (`Dir /B /A:-D /O:SN "%Otkuda%\"`) DO Call :DelSize "%Otkuda%\%%f" 
GoTo :Eof

:DelSize
Set S2=%~z1

If %S1% NEQ %S2% (
   Set S1=%S2%
   Set N1=%1
) Else (
   Del %1
   If Exist %N1% Del %N1%
)

Отправлено: 13:20, 17-11-2011

njg

Новый участник

Сообщения: 46
Благодарности: 3

Профиль | Отправить PM | Цитировать

Осилил свою задумку. Посмотрите что получилось. Если есть ошибки или неточности, исправьте, пожалуйста.

Код:

@echo off
SET FOLDERNAME=_BackUp_%DATE:~6,4%-%DATE:~3,2%-%DATE:~0,2%

echo.
echo Удаление дубликатов:

For %%I In ("%FOLDERNAME%\*.rar") Do (
  call :deldub "%%~I"
)


echo.
pause
exit /b 0
rem ==========================================================================


rem ==========================================================================
:deldub
REM Процедура сравнения и удаления дубликатов
For /F "UseBackQ Delims=" %%I In (`Dir _BackUp_* /AD /B /ON 2^>nul`) Do (
  If /I %%~I NEQ %FOLDERNAME% (
    For %%J In ("%%~I\*.rar") Do (
      If /I "%%~nxJ" EQU "%~nx1" (
        If /I "%%~zJ" EQU "%~z1" (
          del /F "%%~J"
          Echo Удален %%~J 
        ) 
      )
    )
  )
)
exit /b 0
rem ==========================================================================

Отправлено: 04:29, 18-11-2011 | #2