[R] Arborescence d'un dossier

[Benjicairn]

Bonjour à tous,
Je suis amené dans un projet à réaliser un GuiCtrlCreateTreeView pour avoir l'arborescence d'un dossier (par exemple le dossier Ma Musique). Ne connaissant pas le nombre de sous-dossiers de Ma Musique car il peut être variable, comment puis-je faire pour créer ce TreeView pour qu'il se présente de cette facon :

Ma Musique
_____Dossier de musique 1
___________Eventuel sous-dossier de musique 1 à détecter
_____Dossier de musique 2
_____Dossier de musique 3
___________Eventuel sous-dossier de musique 3 à détecter

Comment dois-je utiliser ma boucle For ? Je me sers de _FileToArray pour obtenir le nombre de sous-dossiers et j'arrive ensuite à afficher les Dossiers de musique mais je bloque ensuite pour savoir comment détecter les "éventuels sous-dossiers".
Je ne sais pas si je suis clair, mais merci de vos réponses, j'ai toujours réussi jusque là à trouver des réponses gràce à vos postes ^^ pourquoi s'arréter là !
Benjicairn

[jumby]

Voici comment je m'y prendrai :
(Mon code est à placer dans votre dossier musique pour être testé)

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#Include <Array.au3>
global $FileListsousdossier2
Global $ii

$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$TreeView1 = GUICtrlCreateTreeView(128, 80, 337, 305)
$TreeView1_0 = GUICtrlCreateTreeViewItem("Ma musique", $TreeView1)
$FileList =_FileListToArray(@ScriptDir)
for $i = 1 to $FileList[0]
$attrib = FileGetAttrib ($FileList[$i] )
    If StringInStr($attrib, "D") Then
$TreeView1_1 = GUICtrlCreateTreeViewItem($FileList[$i], $TreeView1_0)
$FileListsousdossier =_FileListToArray(@ScriptDir&"\"&$FileList[$i])
if not @error Then
    call("testsousdossier")

    EndIf
EndIf
Next

GUISetState(@SW_SHOW)


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

    EndSwitch

WEnd

func testsousdossier()
    for $ii = 1 to $FileListsousdossier[0]
    $attrib = FileGetAttrib ($FileList[$i]&'\' &$FileListsousdossier[$ii])
    If StringInStr($attrib, "D") Then   
    $TreeView1_1_1 = GUICtrlCreateTreeViewItem($FileListsousdossier[$ii], $TreeView1_1) 

    $FileListsousdossier2 =_FileListToArray(@ScriptDir&"\"&$FileList[$i]&"\"& $FileListsousdossier[$ii])
    
    if not @error Then
    for $iii = 1 to $FileListsousdossier2[0]
    $attrib = FileGetAttrib ($FileList[$i]&'\' &$FileListsousdossier[$ii] & "\" & $FileListsousdossier2[$iii])
    If StringInStr($attrib, "D") Then   

    $TreeView1_1_1_1 = GUICtrlCreateTreeViewItem($FileListsousdossier2[$iii], $TreeView1_1_1)   
    $FileListsousdossier3 =_FileListToArray(@ScriptDir&"\"&$FileList[$i]&"\"& $FileListsousdossier[$ii] & "\" & $FileListsousdossier2[$iii])
    
    if not @error Then
        for $iiii = 1 to $FileListsousdossier3[0]
            $attrib = FileGetAttrib ($FileList[$i]&'\' &$FileListsousdossier[$ii] & "\" & $FileListsousdossier2[$iii] & "\" & $FileListsousdossier3[$iiii])
             If StringInStr($attrib, "D") Then  
                    $TreeView1_1_1_1_1 = GUICtrlCreateTreeViewItem($FileListsousdossier3[$iiii], $TreeView1_1_1_1)
                    
                EndIf
            Next
            EndIf
EndIf
Next
    EndIf
EndIf

Next
EndFunc

Ce code supporte jusqu'à 4 niveaux je m'explique :
Votre dossier\sousdossier1\sousdossier2 du sousdossier1\sousdossier3 du sousdossier2\sousdossier4 du sousdossier3

[Benjicairn]

Super, un très grand merci, il me manquait FileGetAttrib pour vérifier que j'avais un sous-dossier présent !
Je vais adapter tout ca pour mon code, merci encore.
Sujet résolu avec un bon exemple de la situation

[Tlem]

Vous pouvez aussi jeter un oeil sur celui-ci (plus complet et plus rapide) : http://www.autoitscript.fr/forum/viewto ... 857#p20857