je ne sais pas comment m'y prendre pour bien faire.
J'ai lu sur le forum que pour lister le contenu d'un dossier on devrait utiliser FileListToArray3.au3.
Malheureusement le code demande à utiliser _array
J'aimerai lister le contenu trouvé dans une listebox uniquement les répertoires trouvés
Je n'y arrive pas pourquoi ?
Y a t il un autre moyen pour lister des dossiers en excluant un ?
J'ai peut être mal cherché mais je n'ai pas trouvé d'exemples
Code : Tout sélectionner
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Zip.au3>
#include <Array.au3>
#include <FileListToArray3.au3>
#include <File.au3>
Global $Form1 = GUICreate("Créer un dossier", 345, 218, 192, 124)
Global $ListFolder = GUICtrlCreateList("", 168, 48, 169, 73)
Global $Create = GUICtrlCreateButton("Go", 144, 168, 97, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
$ar_Array = _FileListToArray3 (@ScriptDir &"\ItAuto\", "", 2, 0, 0,"TEMP")
GUICtrlSetData($ListFolder, $ar_Array)
Do
$Msg = GUIGetMsg()
Switch $Msg
Case $Create
CreateFolder()
EndSwitch
Until $Msg = $GUI_EVENT_CLOSE
Func CreateFolder()
Global $Form2 = GUICreate("Création Profil utilisateur - Choisir un nom", 220, 147, 192, 124)
Global $UserName = GUICtrlCreateInput("", 8, 48, 201, 21)
Global $Create = GUICtrlCreateButton("Créer", 136, 96, 73, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUISetState(@SW_SHOW)
Do
$Msg = GUIGetMsg()
Switch $Msg
Case $Create
$RandomLettre = RandomLettre("a","z", 9)
$InstallDir = @ScriptDir &"\ItAuto\"&$RandomLettre & "."&GUICtrlRead($UserName)
MsgBox(0,"", $InstallDir)
DirCreate($InstallDir)
EndSwitch
Until $Msg = $GUI_EVENT_CLOSE
EndFunc
Func RandomLettre($strMin = "a", $strMax = "z", $szNb = 1)
Local $i, $Char
For $i = 1 to $szNb
$Char &= Chr(Random (Asc($strMin), Asc($strMax), 1))
Next
Return $Char
EndFunc
Laddy
