emitlinks/moveyourpop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 1 Wiki Activity

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

Browse Source
This commit is contained in:
jopazerty
2025-03-25 11:47:42 +01:00
parent 7c880cec36
commit 9d3781136a
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
moveyourPOP.au3
View File

@ -46,7 +46,7 @@ $hGUI = GUICreate("MoveYourPOP", 800, 570)
GUISetBkColor(0xf2f2f2) GUISetBkColor(0xf2f2f2)
GUISetFont(10, 500, default, "Segoe UI") 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") GUICtrlSetFont(-1, 8, 500, 2, "Segoe UI")
GUICtrlSetBkColor(-1, 0xf2f2f2) GUICtrlSetBkColor(-1, 0xf2f2f2)
@ -242,6 +242,8 @@ While 1
$dst = $localFolderDirectory&"\_Archives de "&$accountName&".sbd" $dst = $localFolderDirectory&"\_Archives de "&$accountName&".sbd"
FileWrite($localFolderDirectory&"\_Archives de "&$accountName, "") FileWrite($localFolderDirectory&"\_Archives de "&$accountName, "")
$cmdMove = RunWait(@ComSpec & ' /c powershell.exe -Command "Move-Item -Path ''' & $directory & '\*'' -Destination ''' & $dst & '''"', "") $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 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é.") 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") FileDelete($profileDirectory&"\user.js")