cs_cyrilp
Messages postés140Date d'inscriptionmercredi 4 octobre 2000StatutMembreDernière intervention12 août 2009
-
17 janv. 2002 à 11:09
bsf45
Messages postés1Date d'inscriptionmardi 31 octobre 2000StatutMembreDernière intervention 5 septembre 2002
-
5 sept. 2002 à 19:05
Tout est dans le titre...
URGENT :sad)
Ce que je voudrais, c'est pouvoir lister le contenu du HD ou tout autre disque/disquette/Cd voire même pourquoi pas le voisinage réseau dans un TreeView, à la méthode "Explorer" mais avec en plus les fichiers...
bsf45
Messages postés1Date d'inscriptionmardi 31 octobre 2000StatutMembreDernière intervention 5 septembre 2002 5 sept. 2002 à 19:05
il y a plusieurs moyens : le plus simple est de créer un objet FileSystemObject comme suit :
dim fso
set fso = createobject("scripting.filesystemobject")
ensuite tu liste
set f= fso.getfolder("c:")
set sf=f.subfolders
for each f1 in sf
s1=f1.name
s="c:"+s1
set f2=fso.getfolder(s)
set fc=f2.files
for each f2 in fc
s2=f2.name
listview1.listitems.add ,,s2,1,1
next
next
dans la première boucle tu liste les repertoires de "c:" et dans la seconde tous les fichiers de chaques repertoires.