Sauvegarde du profil Thunderbird [Résolu/Fermé]

@echo off

:: fonctionne avec Thunderbird 45, le 01/02/2017

set source=%APPDATA%\Thunderbird

set destination=%USERPROFILE%\Desktop\Sauvegardes Thunderbird

set retention=7

tasklist | find "thunderbird" && taskkill /IM thunderbird.exe /T

cls & echo. & color 0A

echo ****** La sauvegarde de THUNDERBIRD va commencer ******

echo.

ping -n 7 127.0.0.1 > nul

if %source:~0,2% EQU %CD:~0,2% (cd %source% || goto :eof) else (cd /d %source% || goto :eof)

if not exist "%destination%\%date:~6,4%%date:~3,2%%date:~0,2%" mkdir "%destination%\%date:~6,4%%date:~3,2%%date:~0,2%"

xcopy "Profiles" "%destination%\%date:~6,4%%date:~3,2%%date:~0,2%\Profiles\" /E /H /K /Y || goto :eof

cls & echo.

echo ****** Sauvegarde THUNDERBIRD OK ******

echo. & echo. & echo. & echo. & echo. & echo.

echo ****** Suppression des sauvegardes plus anciennes que %retention% jours ******

Setlocal enableextensions enabledelayedexpansion

for /f "tokens=*" %%A In ('dir /b /ad "%destination%\*.*"') do (

set /a archive=%%A

set /a decote=69

if %date:~3,2% EQU 3 (set /a decote=!decote!+2)

if %date:~3,2% EQU 5 (set /a decote=!decote!+1)

if %date:~3,2% EQU 7 (set /a decote=!decote!+1)

if %date:~3,2% EQU 10 (set /a decote=!decote!+1)

if %date:~3,2% EQU 12 (set /a decote=!decote!+1)

set /a cejour=%date:~6,4%%date:~3,2%%date:~0,2%

set /a result=!cejour!-!archive!

if !result! GEQ 70 (set /a result=!result!-!decote!)

if !result! GEQ %retention% (rmdir /s /q "%destination%\%%A")

)

Endlocal

ping -n 3 127.0.0.1 > nul

exit