Competer code source

Salut j'aurais voulu savoir si quelqun pourait utiliser ce code source et renvoyer les resultats dans un ListBox plutot que dans un tableau ( en plus je sais pas comment ca marche )

1. Private Sub Recursive(ByRef files As String(), ByVal file As String, ByVal chemin As String)
2.  
3. '## files est le tableau des fichiers trouvés.
4. '## file est la structure utilisée pour la recherche.
5. '## chemin est le répertoire de base dans lequel s'effectue la recherche.
6.  
7.         Dim souschemins As String() '## Ensemble des sous-répertoire du répertoire chemin.
8.         Dim souschemin As String'## Sous-répertoire dans lequel se poursuit la recherche.
9.         Dim fichiers As String() '## Ensemble des fichiers trouvés dans le répertoire
10.                                     '## chemin et correspondant à la structure file.
11.                                     '## Il correspond au tableau files mais pour le
12.                                     '## répertoire en cours de traitement.
13.         Dim i As Integer '## Compteur des fichiers trouvés dans le répertoire en
14.                                     '## cours de traitement.
15.         Dim dimens As Integer '## Dimension du tableau files avant qu'il soit
16.                                     '## redimensionné.
17.  
18.         fichiers = System.IO.Directory.GetFileSystemEntries(chemin, file)
19.         If fichiers.Length > 0 Then
20.             Iffiles Is Nothing Then
21.                 ReDimfiles(fichiers.Length - 1)
22.             Else
23.                 dimens = files.Length
24.                 ReDim Preserve files(files.Length + fichiers.Length - 1)
25.             EndIf
26.  
27.             For i = 0 To fichiers.Length - 1
28.                 files(dimens + i) = fichiers(i)
29.             Next
30.             souschemins = System.IO.Directory.GetDirectories(chemin)
31.             For Each souschemin In souschemins
32.                 Recursive(files, file, souschemin)
33.             Next
34.         EndIf
35.     EndSub

je croi ke je me suis mal exprimé je voudrais que quelqun modifie le code pour recuperer les resultats dans un ListBox

Salut
C'est simple : Regarder dans l'aide du ListBox pour savoir comment additionner des items + faire une boucle de chaque item de ton tableau (For-Next).
Commence par chercher et comprendre avant de poser des questions.
Toutes les réponses sont aussi dans n'importe quelle source de ce site dans lesquels il y a une ListBox

Vala
Jack, MVP VB, ralou ce soir.
NB : Je ne répondrai pas aux messages privés

Je sais commen ajouter des items mais je suis debutant et je ne sais même pa ce que c'est un tableau donc je voi pa comment je pourai modifier la fonction moi même donc c'est pour ca que je demande

désolé mais c'est parceque j'ai vraiment besoi je ne sais pa comment envoyer les resultats du tableu dans un ListBox

Re,

Une fois cette procédure lancée, fait ceci (approximatif, je fais du vb6, pas de vb.net) :

Dim i As Long

For i = 1 To UBound(files)
    TonListBox.AddItem files(i)
Next i

A adapter !

@++

---

ca marche pas
en parametre j'ai mis ca:
Recursive(tab, "*.mp3", "D:\")
sur D j'ai tous mes mp3 et i bloque sur listbox1.items.add tab(i)
je sais pas pourquoi

personne n'a d'idée de pourquoi ca marche pa ?

Plusieurs possibilités :

- tab n'est pas un tableau
- i dépasse le nombre d'éléments du tableau, ou est négatif
- listbox1 n'existe pas

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

tab est un tableau a une dimension de string
i va de 1 a ubound donc j pense pas qu'il puisse etre negatif ou depasser le nombre d'elements
listbox1 existe