Fonction Dir récursive

Question

Voila je cherche le moyen de liste tout les fichiers d'un repertoire et ses sous répertoire avec la fonction Dir.

Car la sa n'affiche que le repertoire courant

Dim Nom As String

Nom = Dir("C:\windows\*ini")

Do While Nom <> ""
List1.AddItem ("C:\windows"& Nom

Nom = Dir
DoEvents
Loop


Je remercie tout ceu ki prendront le temp de repondre  a ma kestion.

cs_BFR · Answer

SALUT Cela devrai te dépanner ,c'est une fonction récursive Sub RecurseTree(DossierDepart As String, Chaine As String) '-Attention le chemin du dossier de depart doit comporter un slash à la fin On Error Resume Next '-Déclarations dossiers Dim intN As Long Dim intDirectory As Long Dim strFileName As String Dim strDirectoryList() As String '-Déclarations fichiers Dim PosPoint As String '-Départ de la recherche strFileName = LCase(Dir(DossierDepart, vbDirectory)) Do While strFileName <> "" '-Ignorer le répertoire en cour, le répertoire parent, et If strFileName <> "." And strFileName <> ".." Then '-Lire tous les fichiers et les dossiers If GetAttr(DossierDepart & strFileName) Then '-Lire si le nom du fichier contient la chaine rechercher '-Test si cela est bien un fichier '-Chercher la présence du point de l'extension du fichier If InStr(strFileName, ".") <> 0 Then '-Rechercher la chaine et la rajouter à la liste If InStr(1, strFileName, Chaine, 1) Then List1.AddItem (DossierDepart & strFileName) End If intDirectory = intDirectory + 1 ReDim Preserve strDirectoryList(intDirectory) strDirectoryList(intDirectory) = DossierDepart _ & strFileName End If End If '-Nouveau depart pour la recherche strFileName = Dir Loop '-Traiter récursivement tous les répertoires For intN = 1 To intDirectory RecurseTree strDirectoryList(intN) & "", Chaine Next intN End Sub A++ BFR

cs_legion91 · Answer

Trop merci sa marche nikel ;)

cs_legion91 · Answer

Le probleme de ton Sub c'est qu'il existe aussi des fichiers sans extension et a partir de la sa bug.

Sinon sa dechire

cs_BFR · Answer

C'est exact mais il n'a pas été conçu pour ça,ce n'etait qu'une base de départ pour ce que tu compte dévelloper
A++ BFR

cs_legion91 · Answer

ouais c vrai merci ;) , d'ailleur sa m'a appris bocoup.

Fonction Dir récursive

5 réponses

Discussions similaires