[Ex] Création de répertoire prédéfinis dans un dossier
Posté : jeu. 02 juil. 2015 16:29
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.
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