Page 1 sur 1
[..] Formulaire definitif
Posté : ven. 22 janv. 2016 14:24
par smook
Bonjour,
voila j'ai un script qui permet de supprimer des fichier selon leurs extensions, mais j'aimerais mettre une option pour permettre de rajouter des des extensions a supprimé, j'arrive a le faire de façon temporaire mais dés que je ferme le script il ne sauvegarde pas l'extension ajouté. Ce n'est pas très clair désolé.
Si vous pouviez m'aider merci d'avance.
Raph
Re: [..] Formulaire definitif
Posté : ven. 22 janv. 2016 15:52
par jguinch
Bienvenue sur le forum smook.
Non, ce n'est pas assez clair, il faudrait que tu nous montres le code que tu utilises.
Re: [..] Formulaire definitif
Posté : ven. 22 janv. 2016 22:20
par parazitenew
Bonsoir,
Les extensions sont ajoutée via l'interface, mais s'il n'y a pas de script pour enregistrer ce qui est ajouté dans un fichier externe comme un .ini par exemple, ça ne sert à rien.
Et pour t'aider d'avantage, il faut poster le code comme l'a dit Jean guinch
Re: [..] Formulaire definitif
Posté : sam. 23 janv. 2016 14:36
par smook
bonjour
voila le code, le bouton ajoutez format n'est pas configurer c'est normal
► Afficher le texte
Code : Tout sélectionner
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#pragma compile(Icon, C:\Users\ynguele\Documents\autoIt\clean pc\images\del.ico)
$Logo_LSC = @TempDir & "\logo~1.jpg"
FileInstall("C:\Users\ynguele\Documents\autoIt\TabletteLenovo\Module Maison\img\jpg\logo~1.jpg", @TempDir & "\logo~1.jpg", 1)
; includes
#Region ### START Koda GUI section ### Form=
Global $Gui1 = GUICreate("Groupe Sacré Coeur", 273, 242, 291, 333)
GUISetBkColor(0x99B4D1)
Global $Pic1 = GUICtrlCreatePic("Logo_LSC", 40, 8, 193, 129)
Global $Btn_nettoyer = GUICtrlCreateButton("Nettoyer", 136, 176, 129, 41)
GUICtrlSetFont(-1, 14, 800, 0, "Atlanta")
Global $Btn_format = GUICtrlCreateButton("ajouter format", 3, 178, 129, 41)
GUICtrlSetFont(-1, 14, 800, 0, "Atlanta")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Gui2
#Region ### START Koda GUI section ### Form=
Global $Gui2 = GUICreate("Groupe Sacré Coeur", 272, 241, 291, 333)
GUISetBkColor(0x99B4D1)
Global $Pic1 = GUICtrlCreatePic($Logo_LSC, 40, 8, 193, 129)
Global $Btn_Fermer = GUICtrlCreateButton("Fermer", 72, 184, 129, 41)
GUICtrlSetFont(-1, 14, 800, 0, "Atlanta")
#EndRegion ### END Koda GUI section ###
; les chemins
$path = @HomePath
$path2 = @DesktopDir ; bureau
;Début du script
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;~ Case $Btn_nettoyer ; Si l'utilisateur clic sur nettoyer il va supprimer tous les fichiers et sous-répertoires dans les répertoires suivants :
; Case $Btn_nettoyer
_Delete()
_Dossier()
; pour le bureau il ne va que supprimer les fichiers ayant les extensions suivantes :
$FileList = _FileListToArray($path2)
For $i = 1 To $FileList[0]
DirRemove($path2 & '\' & $FileList[$i], 1)
Next
FileDelete($path2 & "\*.jpg")
FileDelete($path2 & "\*.GIF")
FileDelete($path2 & "\*.png")
FileDelete($path2 & "\*.BMP")
FileDelete($path2 & "\*.mp3")
FileDelete($path2 & "\*.flac")
FileDelete($path2 & "\*.wav")
FileDelete($path2 & "\*.wma")
FileDelete($path2 & "\*.avi")
FileDelete($path2 & "\*.flv")
FileDelete($path2 & "\*.rmvb")
FileDelete($path2 & "\*.wmv")
FileDelete($path2 & "\*.mov")
FileDelete($path2 & "\*.partial")
FileDelete($path2 & "\*.txt")
FileDelete($path2 & "\*.docx")
FileDelete($path2 & "\*.pptx")
FileDelete($path2 & "\*.xlsx")
FileRecycleEmpty() ; Vide la corbeille
_Dossier()
_Message("Info", "suppression des fichiers en cours veuillez patienter...", 1000, 60)
Sleep(1000)
; On masque la Gui1 pour afficher la Gui2
GUISetState(@SW_HIDE, $Gui1)
GUISetState(@SW_SHOW, $Gui2)
Case $Btn_Fermer
_Message("Info", "A Bientôt !", 1000, 60)
Exit
EndSwitch
WEnd
; Func _Message
Func _Message($info, $MESSAGE, $Temps, $TailleMessage)
SplashTextOn($info, $MESSAGE, 250, $TailleMessage, -1, -1, 1)
Sleep($Temps)
SplashOff()
EndFunc ;==>_Message
; Func Supression de dossier
Func _Delete()
DirRemove($path &"\Music\", 1)
DirRemove($path &"\Documents\", 1)
DirRemove($path &"\Pictures\", 1)
DirRemove($path &"\Videos\", 1)
DirRemove($path &"\Downloads", 1)
EndFunc
; Func création dossier
Func _Dossier()
Local $sFldr1 = @HomePath & "\Music\"
Local $sFldr2 = @HomePath & "\Documents\"
Local $sFldr3 = @HomePath & "\Pictures\"
Local $sFldr4 = @HomePath & "\Videos\"
Local $sFldr5 = @HomePath & "\Downloads\"
If ( DirGetSize($sFldr1) <> -1 And DirGetSize($sFldr2) <> -1 And DirGetSize($sFldr3) <> -1 And DirGetSize($sFldr4) <> -1 And DirGetSize($sFldr5) <> -1) Then
Return False
Else
DirCreate($sFldr1)
DirCreate($sFldr2)
DirCreate($sFldr3)
DirCreate($sFldr4)
DirCreate($sFldr5)
EndIf
EndFunc
Re: [..] Formulaire definitif
Posté : sam. 23 janv. 2016 16:01
par parazitenew
Bonjour,
(Ce script est assez dangereux posté comme ça
. Il aurait fallu mettre en commentaire les lignes de suppression pour éviter un accident en le testant chez soi)
Passons, je remarque que tes extensions sont prédéfinies dans le code lui même, or cette façon de faire empêche l'ajout et même la suppression des extensions. Je comprends pas ce que tu veux dire par
"j'arrive a le faire de façon temporaire ".
Le plus simple selon moi est de créer un .ini IniWrite() afin d'y stocker les extensions. Le bouton format, pourra ainsi afficher un GUI avec un champ de saisi et un bouton OK. Les extensions pourront être ajoutées:
Code : Tout sélectionner
IniWrite ( "Chemin vers le .ini", "Extensions", GUICtrlRead($input), "1" )
Tu pourrais mettre la valeur 1 pour oui et 0 pour non par exemple, si la valeur est 1 alors les fichiers avec cette extension seront supprimés, si c'est 0 alors c'est à laisser. C'est bien de donner le choix à l'utilisateur.
Après sur le GUI principal, il serait bon d'afficher les extensions dans une listview avec des cases à cocher. Afin de choisir quelles extensions on veut supprimer.
C'est un peu différent de ton idée de base peut être mais c'est plus personnalisé. Avant d'aller plus loin, dis nous si t'es intéressé par cette procédure.
Re: [..] Formulaire definitif
Posté : sam. 23 janv. 2016 18:42
par smook
bonjour, merci pour ta réponse,
je testerai ce que tu ma proposé lundi, je te tiens au courant
Re: [..] Formulaire definitif
Posté : mar. 26 janv. 2016 10:15
par smook
bonjour,
Après avoir fais quelque essais je me demandais si on pouvait avec une commande lire toutes les valeurs d'un fichier ini ?
Re: [..] Formulaire definitif
Posté : mar. 26 janv. 2016 20:57
par parazitenew
Bonsoir,
C'est possible d'automatiser la lecture de tout le contenu d'un .ini mais pas en une commande.
Le procédé consiste à lister dans un tabeau (array) toutes les sections de l'ini avec:
Ensuite créer une boucle pour lister toutes les paires Key/Value de chaque section dans un tableau 2D avec:
De là on peut lire grâce à une autre boucle toutes les valeurs de toutes les clés.