Lire simplement un dossier

Signaler
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
-
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Bonjour, je sais c un peu bébéte comme question, mais j'arrive pasà lire les dossiers avec DIR(), juste les fichiers, en fait je voudrais le plus simplement possible copié la hiérarchie d'un dossier (dossiers + fichiers) pour un TreeView sans passer par des API comme FindFirstFile...

Merci

1 réponse

Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
tu peux utiliser l'objet FileSystemObject

tu lie la lib 'Microsoft Scripting Runtime' dans le menu references

ensuite , tu crée une hinstance d'un objet FileSystemObject grace a un

Set FSO = CreateObject("FileSystemObject")
et tu accède a tout : dossiers, lecteurs, fichiers......

avec des procedures deja toutes faites, des info......

je suis en train de faire un prog qui utilise ce principe :

Init du FSO.............
dim Folder as Folder
for each Folder in FSO.GetFolder("c:").SubFolder
TreeView.nodes.add ,,Folder.Name,Folder.name
next Folder

si tu veux, je peux te fournir ma source, j'ai fais un controle perso (hier soir !!!!!) qui permet d'afficher l'arborescence et un autre qui sert de listview (fichiers) avec extraction d'icones...je pense que ca peut etre une bonne source d'info.....

thomas.reynald@caramail.com
0