[Ex] Création de répertoire prédéfinis dans un dossier

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
kevinhusson1
Niveau 1
Niveau 1
Messages : 1
Enregistré le : jeu. 02 juil. 2015 16:23
Status : Hors ligne

[Ex] Création de répertoire prédéfinis dans un dossier

#1

Message par kevinhusson1 »

Bonjour,

Je souhaite partager mon premier script qui permet de créer des répertoires prédéfinis dans un dossier.
Cela m'a été demandé par un utilisateur de mon entreprise.
Si quelqu'un a des idées d'amélioration je suis preneur !

Voici le code.

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

;Création de l'interface graphique
$GUI = GUICreate("GUI", 340, 235, 228, 290)

$Label1 = GUICtrlCreateLabel("CREATION AUTOMATIQUE DE REPERTOIRE", 8, 10, 325, 25)
;~ $Input1 = GUICtrlCreateInput("C:\ ", 8, 40, 325, 21)

;~ £FileSelectFoldeqr = FileSelectFolder("Choisissez votre répertoire", "", 2)
$ChooseFolder = GUICtrlCreateButton("Choisissez votre répertoire de destination", 8, 35, 325, 21)

$Label1 = GUICtrlCreateLabel("Votre repertoire : ", 8, 70, 325, 25)
$Dossier1 = GUICtrlCreateCheckbox("Dossier1", 8, 97, 97, 17)
$Dossier2 = GUICtrlCreateCheckbox("Dossier2", 8, 121, 97, 17)
$Dossier3 = GUICtrlCreateCheckbox("Dossier3", 8, 145, 97, 17)
$Dossier4 = GUICtrlCreateCheckbox("Dossier4", 8, 169, 97, 17)
$Valider = GUICtrlCreateButton("Valider", 8, 197, 75, 25)
;fin de la création de l'interface graphique

GUISetState(@SW_SHOW, $GUI) ;appel de l'interface graphique
While 1
   $nMsg = GUIGetMsg()

   ;switch pour sélectionner les bouton appuyer
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $ChooseFolder
;~       MsgBox(64, "titre", $ChooseFolder)
         If $ChooseFolder = 4 Then
            global $folder = FileSelectFolder("Choisissez votre répertoire", "", 2)
            GUICtrlSetData($Label1, "Votre chemin : " & $folder)
;~          MsgBox(64, "test", $folder)
         EndIf
      Case $Valider
;~       MsgBox(64, "test", $Valider)
         If $Valider = 10 Then
;~          $chemin = GUICtrlRead($Input1)

            ;création du tableau contenant les données des checkbox
            Dim $tab[4][2]=[["Dossier1", GUICtrlRead($Dossier1)],["Dossier2", GUICtrlRead($Dossier2)],["Dossier3", GUICtrlRead($Dossier3)],["Dossier4", GUICtrlRead($Dossier4)]]

;~          MsgBox(64, "test", $tab[0][1])

;~          MsgBox(64, "valeur formulaire", "Input1 = " & $folder & @CRLF & _
;~                                           $tab[0][0] & " = " & $tab[0][1] & @CRLF & _
;~                                           $tab[1][0] & " = " & $tab[1][1] & @CRLF & _
;~                                           $tab[2][0] & " = " & $tab[2][1] & @CRLF & _
;~                                           $tab[3][0] & " = " & $tab[3][1])
            ;Boucle pour créer les dossiers en fonctions des cases cochées
            For $i = 0 To 3
               If $tab[$i][1] = 1 Then
;~                MsgBox(64, "test", "dossier" & $i+1 & " est cocher")
                  $totalChemin = $folder & "\" & $tab[$i][0]
                  DirCreate($totalChemin)
               EndIf
            Next

            MsgBox(64, "Fin de travail", "Les répertoires ont été crées")
         EndIf
   EndSwitch
WEnd



 
Fichiers joints
CreateFolder.zip
(1.08 Kio) Téléchargé 285 fois
Répondre