ajout "_" devant archives pour être en premier
This commit is contained in:
@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user