Treeview explorer
Soyez le premier à donner votre avis sur cette source.
Vue 17 183 fois - Téléchargée 2 228 fois
Description
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é()
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.
- 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.
Codes Sources
A voir également
- Treeview explorer
- Visual Basic / VB.NET : Ocx - treeview explorer - CodeS SourceS - Guide
- Explorateur avec treeview - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Visual Basic / VB.NET : Explorateur de fichiers ( treeview ocx api shell) - CodeS SourceS - Guide
- Treeview comme un explorateur sans pretention - Codes sources - Visual Basic / VB.NET (Control)
- C# / .NET : Explorateur d'assembly dans un treeview - CodeS SourceS - Guide
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.