Discussion :

[Renaud976]

Bonjour à tous,

J'essaye de remplir un treeview avec les sous-dossiers et fichiers d'une bibliothèque de fichiers, si possible avec les instruction "de base" de VB6 (je ne suis plus mécano qu'info et je me perd facilement dans les dll, api, ocx...).
Je rame depuis 3 jours là-dessus et je pensais avoir trouvé l'astuce avec la récursivité, mais ça plante à cause je pense de l'instruction Dir.
Voudriez-vous jeter un oeil et voir si vous pouvez me débloquer la situation?

Renaud.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Option Explicit
 
Dim CheminRepRacine As String       'chemin complet de la racine du treeview
Dim NoeudX As Node            'objet permettant de créer les noeuds du treeview
 
Private Sub Form_Load()
 
   CheminRepRacine = App.Path & "\Bibliothèque"
   Tree.ImageList = ImageList1  'Images non-définitives permettant juste de différencier les dossier et les fichiers
   Tree.Nodes.Clear
   'Création de la racine, avec le chemin du dossier en clé
   Set NoeudX = Tree.Nodes.Add(, , CheminRepRacine, "Bibliothèque", "image_Avion")
 
   Call Scan(CheminRepRacine)
End Sub
 
Public Sub Scan(ByVal Repertoire As String)
   Dim NomRep As String
   NomRep = Dir(Repertoire & "\", vbDirectory)  'Lecture de la première entrée
   Do While NomRep <> ""   'on va parcourir tous les fichiers de la racine
      ' Il faut ignorer le dossier courant et le dossier contenant le dossier courant (. et ..)
      If NomRep <> "." And NomRep <> ".." Then
         'On utilise une comparaison au niveau du bit pour vérifier que NomRep est un dossier (cf. aide VB de Dir)
         If (GetAttr(Repertoire & "\" & NomRep) And vbDirectory) = vbDirectory Then
            Set NoeudX = Tree.Nodes.Add(Repertoire, tvwChild, Repertoire & "\" & NomRep, NomRep, "image_Avion")
            Call Scan(Repertoire & "\" & NomRep)
         Else
            Set NoeudX = Tree.Nodes.Add(Repertoire, tvwChild, Repertoire & "\" & NomRep, NomRep, "image_Commentaire")
         End If
      End If
      NomRep = Dir 'on passe au fichier suivant de la liste
   Loop
End Sub

[Renaud976]

Bonjour,

Je m'en suis sorti avec scrrun.dll , mais j'ai lu que ça pouvait poser des problèmes de déploiement, quelqu'un pourrait-il préciser?

Renaud.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Option Explicit
 
Dim CheminRepRacine As String       'chemin complet de la racine du treeview
Dim NoeudX As Node            'objet permettant de créer les noeuds du treeview
Dim fso As FileSystemObject, dossier As Folder, sousdossier As Folder, fichier As File
 
Private Sub Form_Load()
 
   CheminRepRacine = App.Path & "\Bibliothèque"
   Tree.ImageList = ImageList1
   Tree.Nodes.Clear
   'Création de la racine, avec le chemin du dossier en clé
   Set NoeudX = Tree.Nodes.Add(, , CheminRepRacine, "Bibliothèque", "image_Avion")
   Set fso = New FileSystemObject
   Set dossier = fso.GetFolder(CheminRepRacine)
   scan dossier
   Tree.Nodes(CheminRepRacine).Expanded = True
 
End Sub
 
Public Sub scan(ByVal dossier As Folder)
   For Each sousdossier In dossier.SubFolders
      Set NoeudX = Tree.Nodes.Add(CStr(dossier), tvwChild, CStr(sousdossier), ExtractFileName(sousdossier), "image_Avion")
      scan sousdossier
   Next
 
   For Each fichier In dossier.Files
      Set NoeudX = Tree.Nodes.Add(CStr(dossier), tvwChild, CStr(fichier), ExtractFileName(fichier), "image_Commentaire")
   Next
 
End Sub
 
'Cette fonction reçoit le chemin complet d'un fichier en paramètre et renvoie le nom du fichier :
Public Function ExtractFileName(ByVal sFullPath As String) As String
    If InStr(sFullPath, "\") = 0 Or Right(sFullPath, 1) = "\" Then
        ExtractFileName = ""
        Exit Function
    End If
    ExtractFileName = Mid(sFullPath, InStrRev(sFullPath, "\") + 1)
End Function