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
-
malo777
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

lumesh
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

tu as aussi:

Dim Liste() as String
Dim Chemin as String = "C:"
Dim Pattern as String = "*.*"
Liste = System.IO.Directory.GetFileSystemEntries(Chemin, Pattern)
jesusonline
Messages postés
6827
Date d'inscription
dimanche 15 décembre 2002
Statut
Modérateur
Dernière intervention
13 octobre 2010
17
Merci beaucoup en effet c'est quand meme beaucoup plus simple lol
lumesh
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

certe ;)
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
11
Heu... je ne voudrais pas dénigrer mais ton code est un peu bancal.
Commencer par un private sub et finir par end function, déjà c bizarre. C pas du VB ça.
Tu as mal dû recopier ton code, sinon, indique moi dans quel langage c écrit.

Maintenant, si tu veux plus simple cherche du côté FileSystemObject.
Un chtit exemple pour lister les dossiers :

Tu copies ça dans une form où tu as mis un ctrl listbox(list1) et tu exécutes.

Cela dit, c qu'une piste et c pas garanti que ce soit rapide.

Private Sub Form_Load()
Dim fso, f, fc
Dim racine

racine = "c:"

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(racine)

For Each fc In f.SubFolders

List1.AddItem fc.Name

Next

Set fso = Nothing

End Sub


Cordialement
lumesh
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

CanisLupus, pourquoi utiliser le FSO (threadé biensur sinon ca freeze l'applie) alors que le framework te donne tout ?!
Perso je remplace un max d'API de de functions style FSO (ou dans le meem genre) via le framework !!

C'est un conseil perso, mais matez d'abord le framework, il y a des choses plus qu'interressante dedans !