ajout "_" devant archives pour être en premier

This commit is contained in:
jopazerty
2025-03-17 14:58:34 +01:00
parent a6a3f771ff
commit fbc7c6b64a

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", 0, 553, 800, 15, $SS_CENTER) GUICtrlCreateLabel("moveYourPOP© by jop - Version 1.1", 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)
@ -238,9 +238,9 @@ While 1
FileWrite($profileDirectory&"\user.js", 'user_pref("mail.smtpserver.'&$smtpID&'.try_ssl", 3);'&@CRLF) FileWrite($profileDirectory&"\user.js", 'user_pref("mail.smtpserver.'&$smtpID&'.try_ssl", 3);'&@CRLF)
FileWrite($profileDirectory&"\user.js", 'user_pref("mail.smtpserver.'&$smtpID&'.type", "smtp");'&@CRLF) FileWrite($profileDirectory&"\user.js", 'user_pref("mail.smtpserver.'&$smtpID&'.type", "smtp");'&@CRLF)
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 & '''"', "") RunWait(@ComSpec & ' /c powershell.exe -Command "Move-Item -Path ''' & $directory & '\*'' -Destination ''' & $dst & '''"', "")
Next Next
EndIf EndIf