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

mise à jour de la gestion de la sauvegarde avec confirmation et ajustement des largeurs de colonne dans l'interface utilisateur

Browse Source
This commit is contained in:
jopazerty
2025-03-17 11:40:15 +01:00
parent 0aad7fadba
commit 088ba2fa7a
1 changed files with 21 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
moveyourPOP.au3
View File

@ -28,7 +28,7 @@
_Singleton(@ScriptName)
;commentaire de test pour git
$bypassSauvegarde = False
$bypassSauvegarde = 0
Global $allServer, $profileDirectory, $dstSave, $profileSizef, $prefsToArray
$color = "0x4A90E2"
$color2 = "0x4A90E2"
@ -112,6 +112,7 @@ GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 3, -1) ; $LVSCW_AUTOSIZE
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 4, -1) ; $LVSCW_AUTOSIZE
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 5, -1) ; $LVSCW_AUTOSIZE
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 6, -1) ; $LVSCW_AUTOSIZE
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 7, -1) ; $LVSCW_AUTOSIZE
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 0, -2) ; $LVSCW_AUTOSIZE_USEHEADER
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 1, -2) ; $LVSCW_AUTOSIZE_USEHEADER
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 2, -2) ; $LVSCW_AUTOSIZE_USEHEADER
@ -119,6 +120,7 @@ GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 3, -2) ; $LVSCW_AUTOSIZE_USEHEADE
guictrlsendmsg($ListView, $LVM_SETCOLUMNWIDTH, 4, -2) ; $LVSCW_AUTOSIZE_USEHEADER
guictrlsendmsg($ListView, $LVM_SETCOLUMNWIDTH, 5, -2) ; $LVSCW_AUTOSIZE_USEHEADER
guictrlsendmsg($ListView, $LVM_SETCOLUMNWIDTH, 6, -2) ; $LVSCW_AUTOSIZE_USEHEADER
guictrlsendmsg($ListView, $LVM_SETCOLUMNWIDTH, 7, -2) ; $LVSCW_AUTOSIZE_USEHEADER
Global $hLV = GUICtrlGetHandle($ListView)
@ -143,7 +145,12 @@ While 1
Case $GUI_EVENT_CLOSE
Exit
Case $bypassSave
$bypassSauvegarde = True
$byppasMsg = MsgBox(52, "MoveYourPOP", "La sauvegarde sera bypassée."&@CRLF&@CRLF&"Vous savez ce que vous faites ..."&@CRLF&@CRLF&"Etes-vous sûr de vouloir continuer sans la sauvegrade ?"&@CRLF&@crlf&"[Oui] pour continuer sans la sauvegarde."&@CRLF&"[Non] ré-activera la sauvegarde.")
if $byppasMsg = 6 Then
$bypassSauvegarde = 1
Else
$bypassSauvegarde = 0
EndIf
Case $modifProFileDirectory
$newProfileFolder = FileSelectFolder("Séléctionnez le dossier du profil", @AppDataDir&"\Thunderbird\Profiles")
If Not @error Then
@ -174,12 +181,17 @@ While 1
_checkSpace($profileDirectory, $dstSave)
If @error Then
$msg = MsgBox(52,"MoveYourPOP",$dstSave&@CRLF&" n'a pas assez d'espace disponible pour la sauvegarde."&@CRLF&@CRLF&"Sélectionnez un autre lecteur.")
$msg = MsgBox(48,"MoveYourPOP",$dstSave&@CRLF&" n'a pas assez d'espace disponible pour la sauvegarde."&@CRLF&@CRLF&"Sélectionnez un autre lecteur.")
Else
;~ ConsoleWrite($profileDirectory&@CRLF&$dstSave&@CRLF)
if $bypassSauvegarde = 0 Then
$backup = _backup($profileDirectory, $dstSave)
$saveSize = Round(DirGetSize($dstSave&"\"&$backup)/1024/1024, 2)&" Mo"
$msg = MsgBox(68, "MoveYoutPop", "Taille du dossier du profil : "&$profileSizef&@crlf&"Taille de la sauvegdarde : "&$saveSize&@CRLF&@CRLF&"Continuer ?")
if $msg = 7 then Exit
EndIf
$msg = 6
If $msg = 6 Then
$userjs = $profileDirectory&"\user.js"
FileDelete($userjs)
@ -306,6 +318,7 @@ Func _getAllServer($profileDirectory)
GUICtrlSetBkColor($labProfile, 0xE24141)
GUICtrlSetColor($labProfile, 0xffffff)
GUICtrlSetState($go, $GUI_DISABLE)
GUICtrlSetData($go, "🛠️ Pas Prêt")
Return SetError(13)
EndIf
$aArray = FileReadToArray($jsFile)
@ -317,7 +330,9 @@ Func _getAllServer($profileDirectory)
GUICtrlSetData($labProfile, "Pas de compte POP trouvé dans "&$profileDirectory)
GUICtrlSetBkColor($labProfile, 0xE24141)
GUICtrlSetColor($labProfile, 0xffffff)
GUICtrlSetBkColor($go, 0xE24141)
GUICtrlSetState($go, $GUI_DISABLE)
GUICtrlSetData($go, "🛠️ Pas Prêt")
return SetError(14)
EndIf