Tol!k

|
Posted: Sat Jul 16, 2011 17:46 Post subject: |
|
|
Давно написал, но как-то всё не выкладывалось
Code: | @echo off &setlocal enableextensions &chcp 1251 >nul
rem Удаление дубликатов по хешу
rem Параметры: D:\папка
rem Автор: Tol!k
rem Используется RHash http://rhash.anz.ru/
set "folder=%~1"
if "%folder:~-1%"=="\" set "folder=%folder:~0,-1%"
set "hash="
for /f "tokens=1,*" %%a in (
'rhash.exe -M -r --ansi "%folder%" ^|sort'
) do call :dd "%%a" "%%b"
goto :eof
:dd
if "%hash%" == "%~1" (attrib -h %2 &del /q %2)
set "hash=%~1"
goto :eof
|
|
|