DosTips.com

Code: Select all

@echo off
setlocal
set prompt=$g$s
 rem ich verschiebe Versionierte Backups in GOOD und gleiche in den Eimer
 rem  hier: Kontrolle auf doppelte Backup Dateien
:: --------------------------------------------------------------------------
 rem Folder 

pushD "%~1"
:: --------------------------------------------------------------------------
set doubles=TRASH
set versions=GOOD
for %%i in (%doubles% %versions%) do if not exist "%%i\" ( md "%%i"
  if errorlevel 1 exit /b 1
)
set /a countFiles=countTrash=vergleiche=0
2>nul (for /f "delims==" %%i in ('set _^& set #') do @ set "%%i=")

 rem es werden nur Dateien gleicher Größe miteinander Verglichen
 rem gleiche Dateien (errorlevel = 0) werden markiert/verschoben/entfernt
 rem System Anwendbar auf (Vergleich/Erstellung) Backup 

set "sorted=%temp%\allfiles"
2>nul del "%sorted%" "%sorted%log"
echo please wait ... create filelist ...
 rem The files are sorted by size and timestamp.
robocopy /L . ". only test ..\\" /njh /ts /ns /nc /np /ndl /njs /bytes /log:"%sorted%log"
:: NOTICE: /ndL noDirectoryListing still outputs the file path without the /fp switch
echo             ... sort filelist ...

 rem The /R switch preserves the latest files and removes old duplicates.
 rem To keep the oldest files, the /R switch must be removed.
sort /R "%sorted%log" /o "%sorted%"
echo             ... filelist sorted.
echo   ... compare files ...

 rem create a new list/variable starting from this number of different files
 rem  this is necessary in order not to activate the overflow of the variable
 rem  for more different files, this value should be reduced -it can speed up the search
set "getinList=200"

:: rem These are just quick and dirty settings to speed up the search but NOT COMPLETE it
 rem tryLast == Compare only the most recently found unique files
 rem  set to 0 to compare all files OR set to 100 to compare only the last 100 files
set /a "tryLast=0"

 rem Only the last (now) list/variable is used for comparison.
 rem  leave blank to use all lists, or set to 1 to skip the old lists
set "splitList="

if %tryLast% equ 0 (set "tryLast=") else set "tryLast=|| ( 2>nul set/ai/=comp%%%tryLast% || set NOTtry=1)"
if defined splitList (set "n in (l) =%%n in (%%l)") else set "n in (l) =/l %%n in (%%l -1 0)"

:: which variable contains what?
 rem g  == listSorted
 rem h  == fileSize ( bytes )
 rem i  == fileTime
 rem j  == fullpathfileName (a b c d ab ad)
 rem #h == countSizeList 1 ...
 rem l  == #h
 rem #  == nextSizeList +1
 rem m  == #
 rem n  == actualSizeList
 rem old == sizeNow
set "old=0"
for %%g in ("%sorted%") do for /f "usebackQ tokens=1,3*" %%h in ("%%~g") do ( set "EX="
 set "comp="
 set "NOTtry="
 setlocal enabledelayedexpansion
 if !old! neq %%h call :clean :clean
 set /a "#%%h +=0, # =#%%h +1"
 for /f "usebackQtokens=1-2" %%l in ('!#%%h! !#!') do (
  for %n in (l) %do ( if :!! neq : setlocal enabledelayedexpansion
   for /f "usebackQtokens=1-2*" %%a in ('!countFiles! !countTrash! !_%%h#%%n!') do (
    endlocal
    if NOT defined NOTtry if NOT defined EX for %%d in (%%c) do if NOT defined NOTtry if NOT defined EX (
     set /a comp+=1
     >nul fc /lb1 "%%~nxj" "%%~d" && (
      echo  weg  %%j
      >nul move "%%~nxj" TRASH
      set /a countTrash+=1, EX=1
     ) %tryLast%
    )
    if %%n == %%l if NOT defined EX ( set /a "countfiles+=1"
     2>nul set/ai/=countFiles%%%getinList% || set "i="
     if NOT defined i ( set _%%h#%%m="%%~nxj"
      set "#%%h=%%m"
     )
     if defined i ( set _%%h#%%n="%%~nxj" %%c
      set "#%%h=%%l"
     )
    )
    title  Files  %%a  Trash  %%b
   )
  )
 )
 set "old=%%h"
)
title  Files %countFiles% trash %countTrash%  done
:clean
 rem here the lists for the different files are saved
2>nul md "%~dp0VersionLists"
for /f "delims=_#= tokens=1,2*" %%i in ('2^>nul set _') do >"%~dp0VersionLists\fc_%%i#%%j" echo %%k
if "%~1" == ":clean" exit /b 
pause
2>nul del "%sorted%" "%sorted%log"
exit /b