leptidev
Messages postés206Date d'inscriptionmercredi 30 janvier 2002StatutMembreDernière intervention 4 décembre 2007
-
6 août 2002 à 12:16
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 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...
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 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.....