mise à jour de la version à 1.2 et ajout de la gestion des erreurs lors du déplacement des mails

This commit is contained in:
jopazerty
2025-03-25 11:47:42 +01:00
parent 7c880cec36
commit 9d3781136a

View File

@ -46,7 +46,7 @@ $hGUI = GUICreate("MoveYourPOP", 800, 570)
GUISetBkColor(0xf2f2f2)
GUISetFont(10, 500, default, "Segoe UI")
GUICtrlCreateLabel("moveYourPOP© by jop - Version 1.1", 0, 553, 800, 15, $SS_CENTER)
GUICtrlCreateLabel("moveYourPOP© by jop - Version 1.2", 0, 553, 800, 15, $SS_CENTER)
GUICtrlSetFont(-1, 8, 500, 2, "Segoe UI")
GUICtrlSetBkColor(-1, 0xf2f2f2)
@ -242,6 +242,8 @@ While 1
$dst = $localFolderDirectory&"\_Archives de "&$accountName&".sbd"
FileWrite($localFolderDirectory&"\_Archives de "&$accountName, "")
$cmdMove = RunWait(@ComSpec & ' /c powershell.exe -Command "Move-Item -Path ''' & $directory & '\*'' -Destination ''' & $dst & '''"', "")
;~ MsgBox(16, "MoveYourPOP", "Erreur lors du déplacement des mails de "&$accountName&" vers "&$dst&@CRLF&@CRLF&"le programme va s'arrêter."&@CRLF&"Aucun changement n'a été effectué.")
;~ MsgBox(16, "MoveYourPOP", "Erreur lors du déplacement des mails de "&$accountName&" vers "&$dst&@CRLF&@CRLF&"le programme va s'arrêter."&@CRLF&"Aucun changement n'a été effectué.")
If $cmdMove <> 0 Then
MsgBox(16, "MoveYourPOP", "Erreur lors du déplacement des mails de "&$accountName&" vers "&$dst&@CRLF&@CRLF&"le programme va s'arrêter."&@CRLF&"Aucun changement n'a été effectué.")
FileDelete($profileDirectory&"\user.js")