Utiliser commande DOS TREE et visualiser dans texbox

Version imprimable

Bonjour,

Je souhaite visualiser le contenu d'un répertoire (sous-répertoires) dans un textbox ou une listbox.
La commande DOS TREE /a fait exactement ce que cherche.

J'ai essayé d'utiliser la fonction shell mais aucun résultat.

Mon but était de le faire avec la fonction shell, lancer la commande dos TREE et créer un fichier texte avec le résultat, puis visualiser le fichier texte dans le text box ou la listbox....
J'ai cherché des exemple mais rien trouvé avec cette fonction.

J'ai adapté un autre bout de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub UserForm_Initialize()
    Dim fso, ListR, sRep, ListF, Rep, LesReps, fich, LesFichs
    Dim j As Integer
 
    j = 0
              Me.ListBox1.ColumnCount = 2
              Me.ListBox1.ColumnWidths = "200;200"
    Set fso = CreateObject("Scripting.FileSystemObject")
    chemin = "M:\dossier\03_maintenance\2020"
    Set ListR = fso.GetFolder(chemin)
    Set sRep = ListR.SubFolders
    For Each Rep In sRep
        LesReps = LesReps & Rep.Name
        LesReps = LesReps & vbCrLf
        Me.ListBox1.AddItem
        Me.ListBox1.Column(0, j) = LesReps
        Set ListF = Rep.Files
        For Each fich In ListF
            LesFichs = LesFichs & fich.Name
            LesFichs = LesFichs & vbCrLf
        Next
        If LesFichs <> "" Then
              'MsgBox LesFichs, 0, "Fichiers du répertoire " & Rep.Name
              Me.ListBox1.AddItem
 
              Me.ListBox1.Column(1, j) = LesFichs
              j = j + 1
           Else
              'MsgBox "Il n'y a pas de fichier dans ce répertoire !", 0, "Répertoire " & Rep.Name
        End If
        LesFichs = ""
 
        Next
 
End Sub

Mais dans le résultat tout s'écrit à la suite ....

Merci pour vos recherches.

12/02/2020, 11h53
Menhir

Tu devrais trouver ton bonheur ici :
https://excel.developpez.com/sources...scenceDossiers
https://excel.developpez.com/faq/?pa...riptingRuntime
12/02/2020, 12h41
merymad69

Merci pour ces liens mais je souhaite avoir le résultat dans une userform qui sera en superposition d'un tableau que j'utilise déjà, donc pas dans une nouvelle feuille excel..
C'est pourquoi je cherche à utiliser un controle listbox ou textbox pour le rendu.
12/02/2020, 13h47
Menhir

Une fois qu'on sait comment récupérer des données, les placer dans une cellule ou dans un UserForm ne fait pas une grande différence.
12/02/2020, 13h52
merymad69

Je n'arrive pas a recréer l'arborescence, les données se mettent à la suite dans le contrôle ... d'ou mon pb que je n'arrive pas à résoudre.

2 pièce(s) jointe(s)

Bojour,

Il y a les Treeviews

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Dim tw As MSComctlLib.TreeView, fs
 
Private Sub UserForm_Initialize()
  pere = ChoixDossier   ' ou "C:\xxxxxx"
  If pere = "" Then Exit Sub
  If pere = "C:\" Then Stop
  Set tw = Me.MonArbre
  p = InStrRev(pere, "\"): tmp = Mid(pere, p + 1)
  tw.Nodes.Add(, , "NoeudMat" & pere, tmp).Expanded = True  ' Racine arbre
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set dossier_racine = fs.GetFolder(pere)
  Lit_dossier dossier_racine, 1
End Sub
 
Sub Lit_dossier(ByRef dossier, ByVal niv)
    'On Error GoTo sortie
    pere = dossier.Path
    For Each d In dossier.SubFolders
      fils = d.Path
      p = InStrRev(fils, "\"):   tmp = Mid(fils, p + 1)
      tw.Nodes.Add("NoeudMat" & pere, tvwChild, "NoeudMat" & d.Path, tmp).Expanded = True
      Lit_dossier d, niv + 1
    Next
sortie:
  Exit Sub
End Sub
 
Private Sub MonArbre_NodeClick(ByVal Node As MSComctlLib.Node)
  If Left(Node.Key, 8) = "NoeudMat" Then
    Me.Textbox1 = Mid(Node.Key, 9)
    rép = Me.Textbox1
      Me.ListBox1.Clear
      nf = Dir(rép & "\*.*")
      n = 0
      Do While nf <> ""
        Me.ListBox1.AddItem nf
        Me.ListBox1.List(n, 1) = rép
        n = n + 1
        nf = Dir
      Loop
      Me.Textbox2 = n
      Me.Textbox3 = fs.GetFolder(Me.Textbox1).Size
  End If
End Sub
 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  chemin = Me.Textbox1 & "\" & Me.ListBox1
  ThisWorkbook.FollowHyperlink chemin
End Sub

Boisgontier

12/02/2020, 15h42
merymad69

Merci jacques j'ai pris les éléments dans tes fichiers joints et ça fonctionne, encore merci.:D