C'est un treeview qui liste les dossiers, sous dossiers et fichiers d'un repertoire choisi de manière recursive avec plusieurs options
- Affiche le dossier racine
- Affiche les sous dossiers
- Filtre les fichiers par extension
- Affiche l'extension des fichiers
J'ai ajouter une fonction pour recupérer le chemin du fichier dans le treeview. Pour avoir le chemin complet (ex: c://jdks/fgd.txt) il suffit de faire _dossier & Element_Selectionné()
Conclusion :
Merci à Thejojo79 pour ca source que j'ai transformé en contrôle avec plus d'options.
Problème connu :
Si vous pouviez me dire comment faire pour que quand on affiche la racine les dossiers soit considérés comme enfant. Merci d'avance.
je cherche a faire la meme chose sous access.
j'utilise la fonction suivante
Private Sub test(myPath As String, currentKey As String)
'mypath, ex: "C:\MonRep"
'currentKey = mon repertoire en cours, ex: MonRep
On Error GoTo err_test
Dim myname As String
myname = Dir(myPath, vbDirectory)
Do While myname <> ""
If myname <> "." And myname <> ".." Then
If (GetAttr(myPath & myname) And vbDirectory) = vbDirectory Then
Me.TreeView.Nodes.Add currentKey, 4, myname, myname, "IMG_FOLD"
'rappel de cette fonction sur le repertoire identifié
test myPath & myname & "", myname
End If
End If
myname = Dir
Loop
Exit Sub
err_test:
Exit Sub
End Sub
Cela fonctionne correctement jusqu'a ce que je commence a remonter,
j'obtient alors l'erreur :
"Argument ou appel de procédure incorrect"
sur "myname = Dir"
Quelqu'un peut il m'aider?
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.