LISTER TOUS LES FICHIERS D'UN REPERTOIRE ET SOUS REPERTOIRE

Signaler
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008
-
Messages postés
88
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
13 juin 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/19249-lister-tous-les-fichiers-d-un-repertoire-et-sous-repertoire

Messages postés
88
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
13 juin 2013
1
Est-ce qu'il serait possible d'avoir le même code (de départ) mais en VB6 s'il vous plaît.

Cordialement

Malo
Messages postés
35
Date d'inscription
vendredi 15 février 2002
Statut
Membre
Dernière intervention
27 avril 2009

Sympa cette source meme si il y a une autre methode sans passer par les FSO ;o)
Messages postés
6
Date d'inscription
dimanche 4 juillet 2004
Statut
Membre
Dernière intervention
18 novembre 2004

j'ai trouvé une autre possibilité...

dim arrlist as filesysteminfo() ' matrice de fichiers
dim i as integer
...

Dim dirpathInfo As New DirectoryInfo(path) 'remplacez path par votre
'chemin
arrFile = dirpathInfo.GetFileSystemInfos()
' on récupère l'ensemble des fichiers du répertoire dans la matrice

For i = 0 To arrFile.GetLength(0) - 1
'on parcourre la matrice. Dans mon cas seuls les fichiers du répertoire m'intéressent sinon il faut travailler sur plusieurs dimensions. Chaque dimension représentant un sous répertoire avec ses fichiers

lstFiles.Items.Add(arrFile(i).Name)
'ici vous placez votre code de récup. dans mon cas, je remplis une listbox avec le nom de chaque fichiers
Next

et voilà, c'est dans la boite... !
Messages postés
6814
Date d'inscription
dimanche 15 décembre 2002
Statut
Modérateur
Dernière intervention
13 octobre 2010
28
listefichier("C:/")

try
Dim LogStream As New StreamWriter(Fichier & ".log", True, System.Text.Encoding.UTF8)
for each s as string in listefichier

LogStream.WriteLine(s )
next

catch
'erreur, impossible d'ecrire dans le fichier

finally

LogStream.Close()
end try

Voila je sais que CanisLupus a ecrit aussi qqchose mais je sais pas si ca marche :p
Afficher les 14 commentaires