AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### 
Global $Form = GUICreate("Outil de compression codé rapide", 513, 63, 192, 114)
Global $Parcourir = GUICtrlCreateButton("Parcourir", 10, 10, 100, 25, $WS_GROUP)
Global $NomArchive = GUICtrlCreateInput("", 120, 10, 270, 25)
Global $Label1 = GUICtrlCreateLabel("Entrez le nom de l'archive", 120, 40, 125, 17)
Global $Lancer = GUICtrlCreateButton("Lancer", 400, 10, 100, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $File = ""

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    Case $Parcourir

        $File = FileSelectFolder("Choisir le dossier ", "C:\", 2)

        If $File = "" Then
            MsgBox(0,"Erreur","Veuillez choisir un dossier")
        Else
            $Cible = $File & "\"
        EndIf

    Case $Lancer

        $NomArchive = GUICtrlRead($NomArchive)
        $Chemin = IniRead("config.ini","Chemin","Adresse","")
        $Destination = IniRead("config.ini","Chemin","Destination","")

        [b]If $File = "" OR $NomArchive = "" Then
            MsgBox (0,"Erreur","erreur")[/b]
        Else
            Run ($Chemin & " a -sfx " & Chr(34) & $Destination & $NomArchive & Chr(34) & " -mx5 -psecret -mhe " & Chr(34) & $Cible & Chr(34))
        Endif

 EndSwitch
WEnd

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
AutoItSetOption("MustDeclareVars", 1)
#Region ### START Koda GUI section ### Form=C:\Gestion\Scripts\7zip auto\Form1.kxf
Global $Form = GUICreate("Outil de compression codé rapide", 513, 63, 192, 114)
Global $Parcourir = GUICtrlCreateButton("Parcourir", 10, 10, 100, 25, $WS_GROUP)
Global $Archive = GUICtrlCreateInput("", 120, 10, 270, 25)
Global $Label1 = GUICtrlCreateLabel("Entrez le nom de l'archive", 120, 40, 125, 17)
Global $Lancer = GUICtrlCreateButton("Lancer", 400, 10, 100, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;déclaration des variables
Global $SelectDossier = ""
Global $DossierCible = ""
Global $nMsg = ""
Global $NomArchive = ""
Global $Chemin7zip = ""
Global $CheminDestination = ""

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    Case $Parcourir

        $SelectDossier = FileSelectFolder("Choisir le dossier ", "C:\", 2)

        If $SelectDossier = "" Then
            MsgBox(0,"Erreur","Veuillez choisir un dossier")
        Else
            $DossierCible = $SelectDossier & "\"
        EndIf

    Case $Lancer

        $NomArchive = GUICtrlRead($Archive)
        $Chemin7zip = IniRead("config.ini","Chemins","Chemin de 7zip","")
        $CheminDestination = IniRead("config.ini","Chemins","Chemin de destination","")

        If $SelectDossier = "" OR $NomArchive = "" Then
            MsgBox (0,"Erreur","Veuillez selectionner un dossier et/ou indiquer un nom pour l'archive à créer")
        Else
            Run ($Chemin7zip & " a -sfx " & Chr(34) & $CheminDestination & $NomArchive & Chr(34) & " -mx5 -psecret -mhe " & Chr(34) & $DossierCible & Chr(34))
        Endif

 EndSwitch
WEnd