Dirlistbox sans repertoire parent
mekhanik
Messages postés
33
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
20 mai 2007
-
28 févr. 2006 à 15:11
cs_Megafan Messages postés 389 Date d'inscription dimanche 7 avril 2002 Statut Membre Dernière intervention 23 septembre 2016 - 28 févr. 2006 à 16:20
cs_Megafan Messages postés 389 Date d'inscription dimanche 7 avril 2002 Statut Membre Dernière intervention 23 septembre 2016 - 28 févr. 2006 à 16:20
A voir également:
- Place:parent=menu________&parent=unfiled_____&parent=toolbar_____&querytype=1&sort=12&maxresults=10&excludequeries=1
- Position form child parapport a u form parent - Forum C# / .NET
- Copy folder ✓ - Forum Visual Basic 6
- Fenetre MDI parent / fille - Forum VB.NET
- Parent - Enfant (recuperation de methode) ✓ - Forum C# / .NET
- MDI Form parent avec control bouton - Forum C# / .NET
4 réponses
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
22
28 févr. 2006 à 16:10
28 févr. 2006 à 16:10
Salut,
Je ne crois pas qu'il soit possible de masquer les répertoires parents.
Voici un code qui permet de lister tes dossiers dans un listbox. je sais c'est pas terrible après libre à toi d'adapter sur un treeview. (pour l'exemple coche la référence Microsoft Scripting Runtime dans menu Projet->Références)
8<-------------------------------------------------------------------
Sub EnumDossiers(dossier As String)
Dim fso As Object
Dim oFolder As Object
Dim oSubFolder As Object
Dim Flder As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(dossier)
For Each Flder In oFolder.subfolders
List1.AddItem Flder.Path
Next
'récursivité
For Each oSubFolder In oFolder.subfolders
EnumDossiers oSubFolder.Path
Next
Set fso = Nothing
End Sub
Private Sub Command1_Click()
EnumDossiers ("c:\program files")
End Sub
------------------------------------------------------------------->8
Sinon j'ai déposé une controle qui te permet de faire ce que tu recherches. Par contre c'est du .net alors si tu veux t'amuser à le traduire en vb6
http://www.vbfrance.com/codes/NET2-TREEVIEW-VU-SUR-DOSSIER_36283.aspx
Je ne crois pas qu'il soit possible de masquer les répertoires parents.
Voici un code qui permet de lister tes dossiers dans un listbox. je sais c'est pas terrible après libre à toi d'adapter sur un treeview. (pour l'exemple coche la référence Microsoft Scripting Runtime dans menu Projet->Références)
8<-------------------------------------------------------------------
Sub EnumDossiers(dossier As String)
Dim fso As Object
Dim oFolder As Object
Dim oSubFolder As Object
Dim Flder As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(dossier)
For Each Flder In oFolder.subfolders
List1.AddItem Flder.Path
Next
'récursivité
For Each oSubFolder In oFolder.subfolders
EnumDossiers oSubFolder.Path
Next
Set fso = Nothing
End Sub
Private Sub Command1_Click()
EnumDossiers ("c:\program files")
End Sub
------------------------------------------------------------------->8
Sinon j'ai déposé une controle qui te permet de faire ce que tu recherches. Par contre c'est du .net alors si tu veux t'amuser à le traduire en vb6
http://www.vbfrance.com/codes/NET2-TREEVIEW-VU-SUR-DOSSIER_36283.aspx
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
28 févr. 2006 à 16:11
28 févr. 2006 à 16:11
Il y a justement une source de Willi tombée hier sur ce sujet :
http://www.vbfrance.com/codes/NET2-TREEVIEW-VU-SUR-DOSSIER_36283.aspx
par contre, c'est un treeview qui est utilisé, pas une listbox. Mais çà se manipule très bien aussi.
Manu
http://www.vbfrance.com/codes/NET2-TREEVIEW-VU-SUR-DOSSIER_36283.aspx
par contre, c'est un treeview qui est utilisé, pas une listbox. Mais çà se manipule très bien aussi.
Manu
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
28 févr. 2006 à 16:17
28 févr. 2006 à 16:17
lol le croisement !!
Manu
Manu
cs_Megafan
Messages postés
389
Date d'inscription
dimanche 7 avril 2002
Statut
Membre
Dernière intervention
23 septembre 2016
2
28 févr. 2006 à 16:20
28 févr. 2006 à 16:20
Salut,
Sinon pour continuer à untiliser un DirBox,tu peux créer un lecteur virtuel genre z: = c:\temp avec l'API DefineDosDevice (equivalente à subst sous dos). n'apparaitra dans ta dirbox uniquement ton z: (la racine) et les sous-dossiers.
Bidouille d'accord, mais bon ça marche !
@+
Megafan
Sinon pour continuer à untiliser un DirBox,tu peux créer un lecteur virtuel genre z: = c:\temp avec l'API DefineDosDevice (equivalente à subst sous dos). n'apparaitra dans ta dirbox uniquement ton z: (la racine) et les sous-dossiers.
Bidouille d'accord, mais bon ça marche !
@+
Megafan
