[..] Formulaire definitif

[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

[jguinch]

Bienvenue sur le forum smook.
Non, ce n'est pas assez clair, il faudrait que tu nous montres le code que tu utilises.

[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

[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


 

[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.

[smook]

bonjour, merci pour ta réponse,
je testerai ce que tu ma proposé lundi, je te tiens au courant

[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 ?

[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:

Code : Tout sélectionner

IniReadSectionNames ( "filename" )

Ensuite créer une boucle pour lister toutes les paires Key/Value de chaque section dans un tableau 2D avec:

Code : Tout sélectionner

IniReadSection ( "filename", "section" )

De là on peut lire grâce à une autre boucle toutes les valeurs de toutes les clés.