Script batch incorrect :(

Ce n'est pas un bon plan puisque du fait des fichiers de configuration la différence à chaque ouverture de Thunderbird ne sera jamais nulle et que du fait de l'absence de leur liste tu n'auras aucun moyen de voir à quoi correspond cette différence, mais c'est toi qui vois.

ROBOCOPY synchronise: les fichiers nouveaux ou modifiés dans la source s'ajoutent dans ceux de destination ou les écrasent; les fichiers qui existent dans la destination mais plus dans la source sont supprimés de la destination.

Le contenu des 2 dossiers à l'issue de l'opération est donc forcément identique.

Sur le plan de la forme, tu as à nouveau zappé mes zolies couleurs, je ne sais pas si c'est fait exprès puisqu'il reste des reliquats de leur syntaxe; je les ai rétablies et j'en ai même rajouté rien que pour t'embêter, libre à toi de les enlever.

J'ai ajouté mes 2 lignes SET pour tester, tu les supprimes et tu enlèves le REM devant les tiennes.

Donc ta version "ceinture et bretelles" bien que ROBOCOPY la rende inutile et que le teste de taille sans prendre en compte les fichiers de configuration ne sert à rien:

 

@echo off
CHCP 65001 >NUL

REM SET "orig=C:\Users\bibi\AppData\Roaming\Thunderbird\Profiles\rdwdst72.default-release"
REM SET "dest=D:\bibi\Pro\Documents\Sauvegardes_pro\Mails_thunderbird\rdwdst72.default-release"
SET "orig=G:\photos\antibes"
SET "dest=C:\Users\brucine\Desktop\antibes"

echo ^[93mSAUVEGARDE THUNDERBIRD[0m

:AVANT
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %orig% -Recurse | Measure-Object -Property Length -Sum).Sum"') DO SET to=%%a
FOR /F %%b IN ('powershell.exe -Command "(Get-ChildItem %dest% -Recurse | Measure-Object -Property Length -Sum).Sum"') DO SET td=%%b
FOR /F %%e IN ('powershell %to%-%td%') DO SET diff=%%e
FOR /F %%i in ('powershell -c "'{0:N0}' -f %diff%"') do set diff1=%%i
echo:

ECHO ^[34mTaille initiale:[0m
ECHO ^[34m----------------[0m
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %orig% -Recurse | Measure-Object -Property Length -Sum).Sum.ToString('N0')"') DO echo Source.... = %%a octets
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %dest% -Recurse | Measure-Object -Property Length -Sum).Sum.ToString('N0')"') DO echo Sauvegarde = %%a octets

IF %diff% EQU 0 (
 echo ^[32mDifférence = %diff1% octets[0m
) ELSE (
 echo ^[31mDifférence = %diff1% octets[0m
)
GOTO CHOICE

:APRES
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %orig% -Recurse | Measure-Object -Property Length -Sum).Sum"') DO SET to=%%a
FOR /F %%b IN ('powershell.exe -Command "(Get-ChildItem %dest% -Recurse | Measure-Object -Property Length -Sum).Sum"') DO SET td=%%b
FOR /F %%e IN ('powershell %to%-%td%') DO SET diff=%%e
FOR /F %%i in ('powershell -c "'{0:N0}' -f %diff%"') do set diff1=%%i

ECHO ^[34mTaille finale:[0m
ECHO ^[34m--------------[0m
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %orig% -Recurse | Measure-Object -Property Length -Sum).Sum.ToString('N0')"') DO echo Source.... = %%a octets
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %dest% -Recurse | Measure-Object -Property Length -Sum).Sum.ToString('N0')"') DO echo Sauvegarde = %%a octets
IF %diff% EQU 0 (
 echo ^[32mDifférence = %diff1% octets[0m
) ELSE (
 echo ^[31mDifférence = %diff1% octets[0m
)
echo:
GOTO END

:CHOICE
echo:
CHOICE /C ON /M "Procéder à la sauvegarde?"
IF %ERRORLEVEL% EQU 1 GOTO COPY
IF %ERRORLEVEL% EQU 2 GOTO QUIT

:COPY
ROBOCOPY "%orig%" "%dest%" /MIR /NP /NJH /NDL /NFL /NJS
echo ^[32mSauvegarde effectuée le %date%[0m
echo:
CALL :APRES
pause
GOTO END

:QUIT
echo:
IF %diff% EQU 0 (
 echo ^[32mDifférence nulle: Synchronisation inutile[0m
) ELSE (
 echo ^[31mAttention! Sauvegarde abandonnée[0m
)
echo:
CALL :APRES
pause

:END

Moi, je suis comme les gendarmes, bête et discipliné, ou bien je n'ai pas bien compris.

Si tu ne veux pas de récapitulatif en cas d'abandon (volontaire ou pas de différence), tu vires la ligne 70.

J'ai commenté ici une manière artisanale d'obtenir le caractère d'échappement, je n'ai pas trouvé mieux pour le moment (sauf bien sûr une fois qu'on en a trouvé un de conserver sur son disque le script qui le contient).

https://forums.commentcamarche.net/forum/affich-37816788-batch-entrer-le-caractere-d-echappement-au-clavier

Je t'ai répondu ci-dessus.

Les petits carrés, Niet; c'est comme le Canada Dry, ça ressemble mais ça n'en est pas, c'est juste un caractère qui n'est pas lisible dans le script et qui ressemble d'ailleurs à un rectangle.

Puisqu'on est dans CHOICE, les zolies couleurs et la défonce du consommateur, pas de raison que le choix ne soit pas coloré.

Supprime la ligne CHOICE en 48 et mets à la place sans oublier les caractères d'échappement:
 

ECHO [93mProcéder à la sauvegarde?[0m

Insère une nouvelle ligne au-dessous:
 

CHOICE /C ON

L'instruction CALL :APRES dans :QUIT commande d'aller exécuter ce qui se trouve dans l'étiquette :APRES (mesure des nouvelles tailles) et de revenir au point de départ après.

Le début du script zappe :APRES en allant à :CHOICE après :AVANT; si je supprime CALL :APRES dans :QUIT, il est donc impossible que la section :APRES soit lue autrement qu'à partir de :COPY, et c'est le comportement observé chez moi: tu as mal du enregistrer.

Le même qu'hier, que je viens encore de tester, et qui fonctionne dans les 4 cas de figure (abandon avec ou sans différence, sauvegarde avec ou sans différence) à cela près qu'il affiche la taille finale si on a l'idée curieuse de sauvegarder sans différence (Ne pas oublier d'intervertir les REM et les SET).

Si on veut parer à cette fausse manoeuvre, remplacer dans :COPY la ligne CALL :APRES par
IF %diff% NEQ 0 CALL: APRES

Si tu veux prendre en compte les différences de fichiers de configuration, je me suis fait aider dans une faute de syntaxe de l'exclusion du dossier datareporting (qui contient les lz4) que je ne trouvais pas, j'ai le batch correspondant à ta disposition.

@echo off
CHCP 65001 >NUL

REM SET "orig=C:\Users\bibi\AppData\Roaming\Thunderbird\Profiles\rdwdst72.default-release"
REM SET "dest=D:\bibi\Pro\Documents\Sauvegardes_pro\Mails_thunderbird\rdwdst72.default-release"
SET "orig=G:\photos\antibes"
SET "dest=C:\Users\brucine\Desktop\antibes"

echo ^[93mSAUVEGARDE THUNDERBIRD[0m

:AVANT
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %orig% -Recurse | Measure-Object -Property Length -Sum).Sum"') DO SET to=%%a
FOR /F %%b IN ('powershell.exe -Command "(Get-ChildItem %dest% -Recurse | Measure-Object -Property Length -Sum).Sum"') DO SET td=%%b
FOR /F %%e IN ('powershell %to%-%td%') DO SET diff=%%e
FOR /F %%i in ('powershell -c "'{0:N0}' -f %diff%"') do set diff1=%%i
echo:

ECHO ^[34mTaille initiale:[0m
ECHO ^[34m----------------[0m
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %orig% -Recurse | Measure-Object -Property Length -Sum).Sum.ToString('N0')"') DO echo Source.... = %%a octets
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %dest% -Recurse | Measure-Object -Property Length -Sum).Sum.ToString('N0')"') DO echo Sauvegarde = %%a octets

IF %diff% EQU 0 (
 echo ^[32mDifférence = %diff1% octets[0m
) ELSE (
 echo ^[31mDifférence = %diff1% octets[0m
)
GOTO CHOICE

:APRES
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %orig% -Recurse | Measure-Object -Property Length -Sum).Sum"') DO SET to=%%a
FOR /F %%b IN ('powershell.exe -Command "(Get-ChildItem %dest% -Recurse | Measure-Object -Property Length -Sum).Sum"') DO SET td=%%b
FOR /F %%e IN ('powershell %to%-%td%') DO SET diff=%%e
FOR /F %%i in ('powershell -c "'{0:N0}' -f %diff%"') do set diff1=%%i

ECHO ^[34mTaille finale:[0m
ECHO ^[34m--------------[0m
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %orig% -Recurse | Measure-Object -Property Length -Sum).Sum.ToString('N0')"') DO echo Source.... = %%a octets
FOR /F %%a IN ('powershell.exe -Command "(Get-ChildItem %dest% -Recurse | Measure-Object -Property Length -Sum).Sum.ToString('N0')"') DO echo Sauvegarde = %%a octets
IF %diff% EQU 0 (
 echo ^[32mDifférence = %diff1% octets[0m
) ELSE (
 echo ^[31mDifférence = %diff1% octets[0m
)
echo:
GOTO END

:CHOICE
echo:
ECHO [93mProcéder à la sauvegarde?[0m
CHOICE /C ON
IF %ERRORLEVEL% EQU 1 GOTO COPY
IF %ERRORLEVEL% EQU 2 GOTO QUIT

:COPY
ROBOCOPY "%orig%" "%dest%" /MIR /NP /NJH /NDL /NFL /NJS
echo ^[32mSauvegarde effectuée le %date%[0m
echo:
CALL :APRES
pause
GOTO END

:QUIT
echo:
IF %diff% EQU 0 (
 echo ^[32mDifférence nulle: Synchronisation inutile[0m
) ELSE (
 echo ^[31mAttention! Sauvegarde abandonnée[0m
)
echo:
pause

:END

Remplace la ligne 24 par:
 

echo ^[32mDifférence = %diff1% octets[0m & GOTO QUIT

PowerShell n'y a que 2 intérêts: contourner la limite de calcul 32 bits si ton dossier fait plus de 2 Go et permettre comme tu le souhaites d'afficher les tailles avec séparateurs de milliers: il est beaucoup plus complexe que Batch, mais beaucoup plus complet et permet dans le cas précis cet affichage en une seule ligne sans passer par une syntaxe Batch indigeste.

Sans ces exigences, on fait (hors fioritures de décoration) le job en Batch pur via Robocopy en moitié moins long.

Quand mes enfants étaient jeunes, dans mon patelin breton, il y avait à la sortie du bled un virage à angle droit qui faisait moultes victimes à la sortie des bistros, et qui depuis a été dévié par une rocade: les jeunes le désignaient comme "le virage de la mort qui tue".

En effet, j'ai oublié l'accent circonflexe ligne 42, mais ça marche sans, preuve par l'image dans les captures en <97>.

Le batch en <97> ne fonctionne pas avec XCOPY, il faut un utilitaire de sauvegarde incrémentielle, précédemment ROBOCOPY, maintenant XXCOPY (voir notamment syntaxe lignes 16 à 18) dont lien de téléchargement également en <97>.

La dernière version sur ce lien est 3.3, CCM propose 2.9, Internet Archive 2.25.

Cette dernière est certainement suffisante pour notre propos et sans gadget (on copie XXCOPY.EXE sous
C:\Windows\System32 et c'est tout), les dernières versions n'amènent rien en ce qui nous intéresse (sinon une limitation réseau dans la version gratuite).

Le lien direct vers l'éditeur est mort parce que l'entreprise l'est (et l'auteur aussi).

https://www.majorgeeks.com/mg/getmirror/xxcopy,1.html

https://www.commentcamarche.net/telecharger/utilitaires/24579-xxcopy/

https://archive.org/details/xcpy2259_zip

Je me sers de différentes versions depuis des lustres, toute la comédie de l'installation par le bat ne fait rien d'autre que de nous saouler de baratin pour finir par installer seulement quelques fichiers commençant par XXCOPY sous System32 (le nombre dépend de la version, 5 au maximum), sans rien d'autre (service, dll...).

Pour désinstaller, on supprime ces fichiers, fin des courses.

C'est pourquoi (je ne sais plus si les versions 2.9 et 3.3 le permettent, la version 2.25 c'est sûr), il est plus simple de ne pas passer par le bat et de se contenter de copier XXCOPY.EXE à la main dans System32: l'EXE n'est PAS un programme d'installation, mais l'utilitaire à part entière; si on clique dessus, rien ne se passe puisqu'il n'obéit (comme XCOPY) qu'à la ligne de commande, et l'UAC (si elle est activée) braille comme à chaque fois qu'on lance un EXE inconnu.

Il s'agissait à l'origine d'un utilitaire de sauvegarde destiné aux entreprises à l'appui de la commercialisation d'un système de sauvegarde matériel spécifique: il est logique que l'auteur ait cherché à vendre sa soupe en monnayant l'utilisation réseau (dans les dernières versions) et celle sur plusieurs postes, mais il est gratuit dans le cadre de l'utilisation individuelle.

echo >LOG_%date:~8,2%%date:~3,2%%date:~0,2%_%time:~0,2%%time:~3,2%%time:~6,2%.txt

echo >D:\bibi\Pro\Documents\Sauvegardes_pro\Mails_thunderbird\LOG_%date:~8,2%%date:~3,2%%date:~0,2%_%time:~0,2%%time:~3,2%%time:~6,2%.txt

Bonjour,

Il faut donc en plus des bretelles et de la ceinture un 3ème accessoire: l'affichage "sauvegarde le..." n'a lieu qu'après la commande effective de copie, verrouillée par l'affichage des tailles avant et après, sans compter que la date de dernière modification peut s'obtenir dans l'item propriétés du dossier de destination.

S'il faut des fichiers de log, je trouve plus intéressant de les mettre à la racine du dossier de sauvegarde que dans le dossier lui-même, c'est plus facile à retrouver, en français que le chemin soit plutôt:

D:\bibi\Pro\Documents\Sauvegardes_pro\

mais c'est toi qui vois.

J'ai peut-être encore mieux, donner au dossier le nom de la date d'exécution, plus besoin de fichier de log.

Comme suit, je l'ai fait dans la version XXCOPY parce que c'est celle que j'avais sous la main, le contexte est le même via ROBOCOPY/PowerShell:

 

@echo off
set i=0
set j=0

set time1=%time:~0,2%
set time2=%time:~3,2%
set date1=%date:~0,2%
set date2=%date:~3,2%
set date3=%date:~6,4%

REM SET "orig=C:\Users\bibi\AppData\Roaming\Thunderbird\Profiles\rdwdst72.default-release"
REM SET "dest=D:\bibi\Pro\Documents\Sauvegardes_pro\Mails_thunderbird\rdwdst72.default-release"
SET "orig=G:\photos\antibes"
SET "dest=C:\Users\brucine\Desktop"
IF NOT EXIST "%dest%\**_**h**" GOTO VIERGE
SET "destfin=%date1%%date2%%date3%_%time1%h%time2%"
FOR /F %%p IN ('DIR /B "%dest%\**_**h**"') DO SET destinit=%%p
GOTO SIZEDEBUT

:VIERGE
SET destinit="%date1%%date2%%date3%_%time1%h%time2%"
MD %dest%\%destinit%

:SIZEDEBUT
echo:
ECHO ^[104;93mSAUVEGARDE THUNDERBIRD[0m
echo:
CHCP 1252 >NUL
XXCOPY %orig% C:\_TEMPD /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _debut.txt
XXCOPY %destinit% C:\_TEMPD /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _debut.txt
XXCOPY %orig% %destinit% /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _debut.txt
FOR /F "skip=1 tokens=1-2 delims==" %%a IN ('type "_debut.txt"') DO SET titreD=%%a & SET sizeD=%%b & CALL :PROCESSD

CHCP 65001 >NUL
ECHO ^[104mTaille initiale (sans fichiers de configuration):[0m
echo Source     = %sizeorigD% octets
echo Sauvegarde = %sizedestinitD% octets
set diff1D=%diffD:~1%
set diff2D=%diff1D:~0,1%
IF %diff2D% LSS 1 (
 echo ^[103;92mDifférence = %diffD% octets[0m & GOTO NOCOPY
) ELSE (
 echo ^[103;91mDifférence = %diffD% octets[0m & GOTO CHOICE
echo:

:PROCESSD
set /a i=%i%+1
IF %i% EQU 2 SET sizeorigD=%sizeD%
IF %i% EQU 9 SET sizedestinitD=%sizeD%
IF %i% EQU 16 SET diffD=%sizeD%
exit /b

:CHOICE
echo:
ECHO [93mProcéder à la sauvegarde?[0m
CHOICE /C ON
IF %ERRORLEVEL% EQU 1 GOTO COPY
IF %ERRORLEVEL% EQU 2 GOTO QUIT

:NOCOPY
echo:
echo ^[103;92mDifférence nulle: Synchronisation inutile[0m
echo:
GOTO END

:QUIT
echo:
echo ^[103;91mAttention,Synchronisation Abandonnée![0m
echo:
FOR /F %%u IN ('dir /b /a "%destinit%\*"') DO (
    GOTO END
)
RD /S /Q %destinit%
GOTO END

:SIZEFIN
CHCP 1252 >NUL
XXCOPY %orig% C:\_TEMPF /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _fin.txt
XXCOPY %destinit% C:\_TEMPF /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _fin.txt
XXCOPY %orig% %destinit% /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _fin.txt
FOR /F "skip=1 tokens=1-2 delims==" %%c IN ('type "_fin.txt"') DO SET titreF=%%c & SET sizeF=%%d & CALL :PROCESSF

MOVE %destinit% %destfin% >NUL
CHCP 65001 >NUL
ECHO ^[104mTaille finale (sans fichiers de configuration):[0m
echo Source     = %sizeorigF% octets
echo Sauvegarde = %sizedestfinF% octets
echo ^[103;92mDifférence = %diffF% octets[0m
echo:
GOTO END

:PROCESSF
set /a j=%j%+1
IF %j% EQU 2 SET sizeorigF=%sizeF%
IF %j% EQU 9 SET sizedestfinF=%sizeF%
IF %j% EQU 16 SET diffF=%sizeF%
exit /b

:COPY
XXCOPY %orig% %destinit% /Xdatareporting\ /Q3 /CBQ /CLONE /YY >NUL
echo:
echo ^[32mSauvegarde effectuée le %date%[0m
echo:
GOTO SIZEFIN


:END
pause
del _debut.txt
del _fin.txt

J'ai testé dans tous les cas de figure (absence ou présence initiale d'un dossier de sauvegarde, différence ou pas dans les dossiers, abandon ou pas), ça fonctionne dans tous les cas.

Si l'affichage de la sauvegarde est à 0, il faut commencer par se demander si c'est vrai ou pas (comparer physiquement la taille de la source et de la destination); si ça ne l'est pas, c'est qu'il y a une erreur dans la ligne

echo Sauvegarde = %sizedestfinF% octets

soit de définition de la variable, soit de son calcul SIZEFIN + PROCESSF; on peut aussi s'en assurer  en ne confirmant pas le pause dans END, permettant de lire le fichier fin.txt avant son effacement.

Noter aussi que la manipulation oblige à définir différemment le chemin de la destination (lignes 14 et 17) et que j'ai donc modifié les variables suivantes y faisant référence en conséquence.

Je suppose que tu ne t'es pas contenté de recopier le script en changeant source et destination lignes 13 et 14 mais que tu l'as intégré à ta propre sauce qu'il faudrait que tu montres pour trouver le bug.

Le script en question crée un dossier de sauvegarde à date, c'est le but, le dernier que j'ai testé dans la journée s'appelle 29032023_12h57 et ne se prête donc pas à être restauré en l'état.

Pour ce faire, il faut au plus simple avoir dans un fichier texte le nom réel du dossier et renommer en fonction avant restauration.

On peut aussi peaufiner en décidant que

(destinit et) destfin valent rdwdst72.default-release-%date1%%date2%%date3%_%time1%h%time2%

En cas de restauration, je renomme en effaçant tout ce qu'il y a derrière release.

Je crois que tu t'es planté dans la définition de la variable dest en début de fichier, j'avais attiré ton attention sur le fait que le chemin était différent si l'on veut nommer les dossiers en fonction de la date.

Mais ce soir, j'ai une migraine noire, j'éplucherai et testerai ça demain et je te retournerai le feedback.

Dans le papotage:
-Firefox, tu te casses le train pour rien:
Tu tapes about:config, tu confirmes, tu tapes "book" et à la ligne browser.bookmarks.autoExportHTML, à droite, tu changes avec les flèches de "False" à "True".
Tu as ainsi en permanence tes marque-pages à jour au format bookmarks.html, plus qu'à faire une sauvegarde externe du fichier au cas où (ou une copie externe de tout le profil Firefox).

-Ce n'est pas outre-mer aux Antibes, mais dans les Alpes-Maritimes, j'y ai vécu enfant:
 

Je m'en suis servi de dossier cobaye, c'est pratique, il n'y a juste que quelques photos, mais revenons à nos moutons.

Tu m'as fait transpirer parce que tu as modifié des variables et des chemins à la hussarde, pour trouver le bug...
Cela dit, j'ai ma part de responsabilité parce que la syntaxe d'effacement du dossier de sauvegarde pour première sauvegarde avortée à l'étiquette QUIT était foireuse et parce que je n'avais pas pensé aux oiseaux de nuit.

Le format **_**h** par exemple ligne 38 était destiné à sécurisé les sauvegardes en ne traitant que les dossiers dont le nom contenait jjmmaaaa_(hh)h(mm), rendant improbable qu'il s'agisse d'un autre dossier; j'avais juste oublié que quand (hh) ne comportait qu'un chiffre (1h52, 9h48) on se faisait planter.

J'ai eu pitié de toi, j'ai viré les rues d'Antibes et j'ai créé un dossier bidon Thunderbird à sa place normale, mais si j'ai une palanquée de partitions, je n'en ai aucune en D:\, tu dois donc te contenter de remplacer par D:\ ce qui est écrit E:\.

Le résultat te sort un dossier de sauvegarde nommé à la date de dernière modification (par exemple 31032023_15h39) se trouvant sous le dossier Mails_thunderbird.

J'en ai même rajouté une couche en cas de plantage: le deuxième script annexé va chercher le nom du profil Thunderbird (y compris un nouveau si on a du désinstaller et réinstaller) et renomme le dossier 31032023_15h39 par exemple rdwdst72.default-release, plus qu'à le couper-coller à sa place (on ne peut pas faire de script simple pour ça, on se fait jeter parce que la destination est dans les dossiers Users).

Script de synchronisation:

 

@echo off
set i=0
set j=0

echo %time% > time.txt
FOR /F %%q IN ('type "time.txt"') DO SET heure=%%q
set time1=%heure:~0,2%
IF %time1% LSS 10 (
 GOTO AM
 ) ELSE (
 GOTO TIME
)
:AM
set time1=%time:~0,1%
set time1=%i%%time%
GOTO TIME

:TIME
del time.txt
set time2=%time:~3,2%
set date1=%date:~0,2%
set date2=%date:~3,2%
set date3=%date:~6,4%

DIR /B %Appdata%\Thunderbird\Profiles\ >> thunder.txt
FOR /F %%v IN ('type "thunder.txt"') DO SET titre1=%%v & CALL :PROCESST
GOTO DOSSIERS

:PROCESST
SET titre2=%titre1:~-8%
IF %titre2%==release SET titre=%titre1%
SET titre=%titre: =%
SET "orig=%AppData%\Thunderbird\Profiles\%titre%"
exit /b

:DOSSIERS
SET "dest=E:\bibi\Pro\Documents\Sauvegardes_pro\Mails_thunderbird"
IF NOT EXIST "%dest%\**_**h**" GOTO VIERGE
SET "destfin=%date1%%date2%%date3%_%time1%h%time2%"
FOR /F %%p IN ('DIR /B "%dest%\**_**h**"') DO SET destinit=%%p
GOTO SIZEDEBUT

:VIERGE
SET destinit=%date1%%date2%%date3%_%time1%h%time2%
MD %dest%\%destinit%

:SIZEDEBUT
echo:
ECHO ^[104;93mSAUVEGARDE THUNDERBIRD[0m
echo:
CHCP 1252 >NUL
XXCOPY %orig% C:\_TEMPD /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _debut.txt
XXCOPY %dest%\%destinit% C:\_TEMPD /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _debut.txt
XXCOPY %orig% %dest%\%destinit% /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _debut.txt
FOR /F "skip=1 tokens=1-2 delims==" %%a IN ('type "_debut.txt"') DO SET titreD=%%a & SET sizeD=%%b & CALL :PROCESSD

CHCP 65001 >NUL
ECHO ^[104mTaille initiale (sans fichiers de configuration):[0m
echo Source     = %sizeorigD% octets
echo Sauvegarde = %sizedestinitD% octets
set diff1D=%diffD:~1%
set diff2D=%diff1D:~0,1%
IF %diff2D% LSS 1 (
 echo ^[103;92mDifférence = %diffD% octets[0m & GOTO NOCOPY
) ELSE (
 echo ^[103;91mDifférence = %diffD% octets[0m & GOTO CHOICE
echo:

:PROCESSD
set /a i=%i%+1
IF %i% EQU 2 SET sizeorigD=%sizeD%
IF %i% EQU 9 SET sizedestinitD=%sizeD%
IF %i% EQU 16 SET diffD=%sizeD%
exit /b

:CHOICE
echo:
ECHO ^[93mProcéder à la sauvegarde?[0m
CHOICE /C ON
IF %ERRORLEVEL% EQU 1 GOTO COPY
IF %ERRORLEVEL% EQU 2 GOTO QUIT

:NOCOPY
echo:
echo ^[103;92mDifférence nulle: Synchronisation inutile[0m
echo:
GOTO END

:QUIT
echo:
echo ^[103;91mAttention,Synchronisation Abandonnée![0m
DIR /b /s /a "%dest%\%destinit%" | findstr .>nul || (
  RD /S /Q %dest%\%destinit%
)
GOTO END

:SIZEFIN
CHCP 1252 >NUL
XXCOPY %orig% C:\_TEMPF /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _fin.txt
XXCOPY %dest%\%destinit% C:\_TEMPF /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _fin.txt
XXCOPY %orig% %dest%\%destinit% /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _fin.txt
FOR /F "skip=1 tokens=1-2 delims==" %%c IN ('type "_fin.txt"') DO SET titreF=%%c & SET sizeF=%%d & CALL :PROCESSF

MOVE %dest%\%destinit% %dest%\%destfin% >NUL
CHCP 65001 >NUL
ECHO ^[104mTaille finale (sans fichiers de configuration):[0m
echo Source     = %sizeorigF% octets
echo Sauvegarde = %sizedestfinF% octets
echo ^[103;92mDifférence = %diffF% octets[0m
echo:
GOTO END

:PROCESSF
set /a j=%j%+1
IF %j% EQU 2 SET sizeorigF=%sizeF%
IF %j% EQU 9 SET sizedestfinF=%sizeF%
IF %j% EQU 16 SET diffF=%sizeF%
exit /b

:COPY
echo:
echo ^[93mPatientez,Sauvegarde en cours...%[0m
XXCOPY %orig% %dest%\%destinit% /Xdatareporting\ /Q3 /CBQ /CLONE /YY >NUL
echo:
echo ^[32mSauvegarde effectuée le %date%[0m
echo:
GOTO SIZEFIN

:END
pause
del thunder.txt
del _debut.txt
del _fin.txt

Script de restauration:

@echo off

SET save=E:\bibi\Pro\Documents\Sauvegardes_pro\Mails_thunderbird\
SET profil=%Appdata%\Thunderbird\Profiles\

:PROFIL
DIR /B %profil% >> profil.txt
FOR /F %%a IN ('type "profil.txt"') DO SET nom_profil1=%%a & CALL :PROCESSPROFIL
GOTO SAVE

:PROCESSPROFIL
SET nom_profil2=%nom_profil1:~-8%
IF %nom_profil2%==release SET nom_profil=%nom_profil1%
exit /b

:SAVE
DIR /B %save% >> nom_save.txt
FOR /F %%b IN ('type "nom_save.txt"') DO SET nom_save=%%b

:RESTORE
MOVE %save%%nom_save% %save%%nom_profil%

:END
del profil.txt
del nom_save.txt

Le script de restauration, il ne fait pas tout le job parce que, comme expliqué, il faudrait qu'il s'attribue des privilèges sur le dossier Users que Windows lui refuse; si j'y pense, je chercherai un subterfuge, mais c'est compliqué à écrire.

Il se contente de renommer le dossier de sauvegarde 01042023_07h24 en rdwdst72.default-release ce qui permet en cas de restauration de le copier-coller directement à sa place avec la souris sans avoir à le renommer à la main.

Ou au cours de tests vice-versa si j'inverse les 2 variables suivantes pour renommer rdwdst72.default-release à la date courante:

MOVE %save%%nom_save% %save%%nom_profil%

Tu peux donc parfaitement tester.

Un oiseau de nuit, en ce qui nous intéresse, c'est quelqu'un qui fait le job entre 0h00 et 9h59, et ce n'est que rarement mon cas pour tester parce que j'ai une vie sociale et/ou un lit; vérification faite (nous sommes dans le créneau), pendant ce laps de temps, l'heure n'a qu'un chiffre dans le format d'origine 7:34 et sort 7: au lieu de 07 (et 21 s'il est 21h34, 2 chiffres) ce qui évidemment plante le script.

Correction faite sur cette période (sans rien changer à l'autre), garder en l'état sauf la lettre de destination, changer E: en D:
 

@echo off
set i=0
set j=0

echo %time% > time.txt
FOR /F %%q IN ('type "time.txt"') DO SET heure=%%q
set time1=%heure:~0,2%
set time11=%heure:~0,1%
set time12=%heure:~1,1%
IF %time12%==: (
 GOTO AM
 ) ELSE (
 GOTO TIME
)
:AM
set time1=%i%%time11%
GOTO TIME

:TIME
del time.txt
set time2=%time:~3,2%
set date1=%date:~0,2%
set date2=%date:~3,2%
set date3=%date:~6,4%

DIR /B %Appdata%\Thunderbird\Profiles\ >> thunder.txt
FOR /F %%v IN ('type "thunder.txt"') DO SET titre1=%%v & CALL :PROCESST
GOTO DOSSIERS

:PROCESST
SET titre2=%titre1:~-8%
IF %titre2%==release SET titre=%titre1%
SET titre=%titre: =%
SET "orig=%AppData%\Thunderbird\Profiles\%titre%"
exit /b

:DOSSIERS
SET "dest=E:\bibi\Pro\Documents\Sauvegardes_pro\Mails_thunderbird"
IF NOT EXIST "%dest%\**_**h**" GOTO VIERGE
SET "destfin=%date1%%date2%%date3%_%time1%h%time2%"
FOR /F %%p IN ('DIR /B "%dest%\**_**h**"') DO SET destinit=%%p
GOTO SIZEDEBUT

:VIERGE
SET destinit=%date1%%date2%%date3%_%time1%h%time2%
MD %dest%\%destinit%

:SIZEDEBUT
echo:
ECHO ^[104;93mSAUVEGARDE THUNDERBIRD[0m
echo:
CHCP 1252 >NUL
XXCOPY %orig% C:\_TEMPD /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _debut.txt
XXCOPY %dest%\%destinit% C:\_TEMPD /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _debut.txt
XXCOPY %orig% %dest%\%destinit% /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _debut.txt
FOR /F "skip=1 tokens=1-2 delims==" %%a IN ('type "_debut.txt"') DO SET titreD=%%a & SET sizeD=%%b & CALL :PROCESSD

CHCP 65001 >NUL
ECHO ^[104mTaille initiale (sans fichiers de configuration):[0m
echo Source     = %sizeorigD% octets
echo Sauvegarde = %sizedestinitD% octets
set diff1D=%diffD:~1%
set diff2D=%diff1D:~0,1%
IF %diff2D% LSS 1 (
 echo ^[103;92mDifférence = %diffD% octets[0m & GOTO NOCOPY
) ELSE (
 echo ^[103;91mDifférence = %diffD% octets[0m & GOTO CHOICE
echo:

:PROCESSD
set /a i=%i%+1
IF %i% EQU 2 SET sizeorigD=%sizeD%
IF %i% EQU 9 SET sizedestinitD=%sizeD%
IF %i% EQU 16 SET diffD=%sizeD%
exit /b

:CHOICE
echo:
ECHO ^[93mProcéder à la sauvegarde?[0m
CHOICE /C ON
IF %ERRORLEVEL% EQU 1 GOTO COPY
IF %ERRORLEVEL% EQU 2 GOTO QUIT

:NOCOPY
echo:
echo ^[103;92mDifférence nulle: Synchronisation inutile[0m
echo:
GOTO END

:QUIT
echo:
echo ^[103;91mAttention,Synchronisation Abandonnée![0m
DIR /b /s /a "%dest%\%destinit%" | findstr .>nul || (
  RD /S /Q %dest%\%destinit%
)
GOTO END

:SIZEFIN
CHCP 1252 >NUL
XXCOPY %orig% C:\_TEMPF /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _fin.txt
XXCOPY %dest%\%destinit% C:\_TEMPF /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _fin.txt
XXCOPY %orig% %dest%\%destinit% /L /Xdatareporting\ /Q3 /CBQ /CLONE /YY >> _fin.txt
FOR /F "skip=1 tokens=1-2 delims==" %%c IN ('type "_fin.txt"') DO SET titreF=%%c & SET sizeF=%%d & CALL :PROCESSF

MOVE %dest%\%destinit% %dest%\%destfin% >NUL
CHCP 65001 >NUL
ECHO ^[104mTaille finale (sans fichiers de configuration):[0m
echo Source     = %sizeorigF% octets
echo Sauvegarde = %sizedestfinF% octets
echo ^[103;92mDifférence = %diffF% octets[0m
echo:
GOTO END

:PROCESSF
set /a j=%j%+1
IF %j% EQU 2 SET sizeorigF=%sizeF%
IF %j% EQU 9 SET sizedestfinF=%sizeF%
IF %j% EQU 16 SET diffF=%sizeF%
exit /b

:COPY
echo:
echo ^[93mPatientez,Sauvegarde en cours...%[0m
XXCOPY %orig% %dest%\%destinit% /Xdatareporting\ /Q3 /CBQ /CLONE /YY >NUL
echo:
echo ^[32mSauvegarde effectuée le %date%[0m
echo:
GOTO SIZEFIN

:END
pause
del thunder.txt
del _debut.txt
del _fin.txt