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

ajout de la gestion des erreurs lors du déplacement et de la sauvegarde des mails

Browse Source
This commit is contained in:
jopazerty
2025-03-20 14:26:27 +01:00
parent d1ed838f59
commit 7c880cec36
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
moveyourPOP.au3
View File

@ -241,7 +241,12 @@ While 1
DirCreate($localFolderDirectory&"\_Archives de "&$accountName&".sbd") DirCreate($localFolderDirectory&"\_Archives de "&$accountName&".sbd")
$dst = $localFolderDirectory&"\_Archives de "&$accountName&".sbd" $dst = $localFolderDirectory&"\_Archives de "&$accountName&".sbd"
FileWrite($localFolderDirectory&"\_Archives de "&$accountName, "") FileWrite($localFolderDirectory&"\_Archives de "&$accountName, "")
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 & '''"', "")
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")
Exit
EndIf
Next Next
EndIf EndIf
@ -376,7 +381,10 @@ Func _backup($source, $destination)
$dateHeure = StringFormat("%02d_%02d_%04d_%02dh%02dm%02ds", @MDAY, @MON, @YEAR, @HOUR, @MIN, @SEC) $dateHeure = StringFormat("%02d_%02d_%04d_%02dh%02dm%02ds", @MDAY, @MON, @YEAR, @HOUR, @MIN, @SEC)
$name = StringSplit($source, "\") $name = StringSplit($source, "\")
$name = $name[$name[0]]&"_backup_"&$dateHeure $name = $name[$name[0]]&"_backup_"&$dateHeure
RunWait('robocopy.exe "' & $source & '" "' & $destination & '\' & $name & '" /E /COPY:DAT /MT:16 /R:3 /W:5') $cmdSave = RunWait('robocopy.exe "' & $source & '" "' & $destination & '\' & $name & '" /E /COPY:DAT /MT:16 /R:3 /W:5')
if $cmdSave >= 8 Then
MsgBox(16, "MoveYourPOP", "Il y a eu des erreurs lors de la sauvegarde")
EndIf
Return $name Return $name
EndFunc EndFunc