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

ajout bypass sauvegarde en cours

Browse Source
This commit is contained in:
jopazerty
2025-03-07 10:39:14 +01:00
parent 0c3106deb2
commit c794f7b32b
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
moveyourPOP.au3
View File

@ -27,6 +27,7 @@
_Singleton(@ScriptName) _Singleton(@ScriptName)
;commentaire de test pour git ;commentaire de test pour git
$bypassSauvegarde = False
Global $allServer, $profileDirectory, $dstSave, $profileSizef, $prefsToArray Global $allServer, $profileDirectory, $dstSave, $profileSizef, $prefsToArray
$color = "0x4A90E2" $color = "0x4A90E2"
$color2 = "0x4A90E2" $color2 = "0x4A90E2"
@ -79,11 +80,14 @@ GUIctrlSetFont(-1,12, 600, Default, "Segoe UI")
$labSizeSave = GUICtrlCreateLabel("", 250, 107, 250, 25) $labSizeSave = GUICtrlCreateLabel("", 250, 107, 250, 25)
GUICtrlSetColor(-1, $color) GUICtrlSetColor(-1, $color)
GUIctrlSetFont(-1,11, 600, Default, "Segoe UI") GUIctrlSetFont(-1,11, 600, Default, "Segoe UI")
$modifSaveDirectory = GUICtrlCreateButton("📂 Modifier", 660, 101, 120, 33) $modifSaveDirectory = GUICtrlCreateButton("📂 Modifier", 660, 101, 120, 33)
GUICtrlSetBkColor(-1, $color2) GUICtrlSetBkColor(-1, $color2)
GUICtrlSetColor(-1, 0xffffff) GUICtrlSetColor(-1, 0xffffff)
GUICtrlSetFont(-1, 11, 600, Default, "Segoe UI") GUICtrlSetFont(-1, 11, 600, Default, "Segoe UI")
GUICtrlSetTip(-1, "Sélectionnez le dossier de sauvegarde") GUICtrlSetTip(-1, "Sélectionnez le dossier de sauvegarde")
GUICtrlCreateContextMenu($modifSaveDirectory)
$bypassSave = GUICtrlCreateMenuItem("Bypasser la sauvegarde", $modifSaveDirectory)
$dstSave = @AppDataDir&"\Thunderbird\Profiles" $dstSave = @AppDataDir&"\Thunderbird\Profiles"
GUICtrlSetData($labSizeSave, "("&Round(DriveSpaceFree($dstSave)/1024, 0)&" Go disponible)") GUICtrlSetData($labSizeSave, "("&Round(DriveSpaceFree($dstSave)/1024, 0)&" Go disponible)")
$labSave = GUICtrlCreateLabel($dstSave, 20, 136, 760, 25, $SS_SUNKEN+$SS_CENTER) $labSave = GUICtrlCreateLabel($dstSave, 20, 136, 760, 25, $SS_SUNKEN+$SS_CENTER)
@ -129,6 +133,8 @@ While 1
Switch GUIGetMsg() Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE Case $GUI_EVENT_CLOSE
Exit Exit
Case $bypassSave
$bypassSauvegarde = True
Case $modifProFileDirectory Case $modifProFileDirectory
$newProfileFolder = FileSelectFolder("Séléctionnez le dossier du profil", @AppDataDir&"\Thunderbird\Profiles") $newProfileFolder = FileSelectFolder("Séléctionnez le dossier du profil", @AppDataDir&"\Thunderbird\Profiles")
If Not @error Then If Not @error Then
@ -156,11 +162,12 @@ While 1
Case $go Case $go
;~ MsgBox("","",$profileDirectory&" "&$dstSave) ;~ MsgBox("","",$profileDirectory&" "&$dstSave)
;~ Exit ;~ Exit
_checkSpace($profileDirectory, $dstSave) _checkSpace($profileDirectory, $dstSave)
If @error Then 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(52,"MoveYourPOP",$dstSave&@CRLF&" n'a pas assez d'espace disponible pour la sauvegarde."&@CRLF&@CRLF&"Sélectionnez un autre lecteur.")
Else Else
ConsoleWrite($profileDirectory&@CRLF&$dstSave&@CRLF) ;~ ConsoleWrite($profileDirectory&@CRLF&$dstSave&@CRLF)
$backup = _backup($profileDirectory, $dstSave) $backup = _backup($profileDirectory, $dstSave)
$saveSize = Round(DirGetSize($dstSave&"\"&$backup)/1024/1024, 2)&" Mo" $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 ?") $msg = MsgBox(68, "MoveYoutPop", "Taille du dossier du profil : "&$profileSizef&@crlf&"Taille de la sauvegdarde : "&$saveSize&@CRLF&@CRLF&"Continuer ?")