Script pour copie automatique de fichiers PC vers USB

@echo off
title Synchronisation de dossiers
mode con: cols=75 lines=45
Setlocal enableextensions enabledelayedexpansion
color 0A

:: ---------------------------
:: on définit les variables
:: ---------------------------

set source=%USERPROFILE%\Desktop\Titi\
set destination=D:\Toto
set liste=%TEMP%\empreintes.md5


:: --------------------------------------
:: on clone l'arborescence des dossiers
:: --------------------------------------

cd /d %source% || exit /B 1

for /f "delims=" %%A in ('dir /b /ad /s') do (

 set "str=%%~A"
 for /f "tokens=1,2 delims=µ" %%W in ("!str:%source:~3%=µ!") do (if not exist "%destination%\%%~X" (mkdir "%destination%\%%~X"))

)


:: ---------------------------------------------------------------------
:: on calcule et on stocke l'empreinte des fichiers de la destination
:: ---------------------------------------------------------------------

echo. > "%liste%"

(hashsum.exe /a MD5 /p "%destination%" /s *.*) >> "%liste%"


:: --------------------------------------------------------
:: on calcule l'empreinte de chaque fichier de la source
:: --------------------------------------------------------

for /f "delims=" %%E in ('2^>nul dir /b /a-d /s "*.*"') do ( 
 
 for /f "tokens=1" %%H in ('hashsum.exe /a MD5 /p "%%~dpE" "%%~nxE"') do (call :comparaison "%%~E" "%%~H")

)

echo. & pause
endlocal
exit /B


:: -------------------------------------------
:: fonction de synchronisation des fichiers 
:: -------------------------------------------

:comparaison

set /a doublon=0

for /f "usebackq skip=1 tokens=1" %%L in ("%liste%") do (if "%%~L"=="%~2" (set /a doublon=1))

if !doublon! EQU 0 (
 
 set "rts=%~1"
 for /f "tokens=1,2 delims=µ" %%W in ("!rts:%source:~3%=µ!") do (>nul copy /Y "%~1" "%destination%\%%~X")
 echo. & echo ### OK ### %~nx1
 
) else (echo. & echo ### -- ### %~nx1)

goto :eof

rem