Lire simplement un dossier

leptidev Messages postés 206 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 décembre 2007 - 6 août 2002 à 12:16
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 7 août 2002 à 07:49
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

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
7 août 2002 à 07:49
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
Rejoignez-nous