Competer code source

Question

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 )

Kuni59 · Answer

Private Sub Recursive(ByRef files As String(), ByVal file As String, ByVal chemin As String)
'## files est le tableau des fichiers trouvés.
'## file est la structure utilisée pour la recherche.
'## chemin est le répertoire de base dans lequel s'effectue la recherche.
Dim souschemins As String() '## Ensemble des sous-répertoire du répertoire chemin.
Dim souschemin As String'## Sous-répertoire dans lequel se poursuit la recherche.
Dim fichiers As String() '## Ensemble des fichiers trouvés dans le répertoire
'## chemin et correspondant à la structure file.
'## Il correspond au tableau files mais pour le
'## répertoire en cours de traitement.
Dim i As Integer '## Compteur des fichiers trouvés dans le répertoire en
'## cours de traitement.
Dim dimens As Integer '## Dimension du tableau files avant qu'il soit
'## redimensionné.
fichiers = System.IO.Directory.GetFileSystemEntries(chemin, file)
If fichiers.Length > 0 Then
Iffiles Is Nothing Then
ReDimfiles(fichiers.Length - 1)
Else
dimens = files.Length
ReDim Preserve files(files.Length + fichiers.Length - 1)
EndIf
For i = 0 To fichiers.Length - 1
files(dimens + i) = fichiers(i)
Next
souschemins = System.IO.Directory.GetDirectories(chemin)
For Each souschemin In souschemins
Recursive(files, file, souschemin)
Next
EndIf
EndSub

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

cs_Jack · Answer

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

Kuni59 · Answer

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

Kuni59 · Answer

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

mortalino · Answer

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 !

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

Kuni59 · Answer

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

Kuni59 · Answer

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

econs · Answer

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.

Kuni59 · Answer

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

cs_Jack · Answer

Et "ça marche pas" ne voulant rien dire, dis nous plutôt :
- si tu as un code d'erreur et le texte descriptif de l'erreur
- si tu passes dans ton code (on ne sait jamais dees fois que tu passes par dessus)

Kuni59 · Answer

je vais faire un copié collé de mon code ce sera plus simple je pense


Public Class Form1


    Private Sub Recursive(ByVal files As String(), ByVal file As String, ByVal chemin As String)


        '## files est le tableau des fichiers trouvés.

        '## file est la structure utilisée pour la recherche.

        '## chemin est le répertoire de base dans lequel s'effectue la recherche.


        Dim souschemins As String() '## Ensemble des sous-répertoire du répertoire chemin.

        Dim souschemin As String '## Sous-répertoire dans lequel se poursuit la recherche.

        Dim fichiers As String() '## Ensemble des fichiers trouvés dans le répertoire

        '## chemin et correspondant à la structure file.

        '## Il correspond au tableau files mais pour le

        '## répertoire en cours de traitement.

        Dim i As Integer '## Compteur des fichiers trouvés dans le répertoire en

        '## cours de traitement.

        Dim dimens As Integer '## Dimension du tableau files avant qu'il soit

        '## redimensionné.


        fichiers = System.IO.Directory.GetFileSystemEntries(chemin, file)

        If fichiers.Length > 0 Then

            If files Is Nothing Then

                ReDim files(fichiers.Length - 1)

            Else

                dimens = files.Length

               
ReDim Preserve files(files.Length + fichiers.Length - 1)

            End If


            For i = 0 To fichiers.Length - 1

                files(dimens + i) = fichiers(i)

            Next

            souschemins = System.IO.Directory.GetDirectories(chemin)

            For Each souschemin In souschemins

                Recursive(files, file, souschemin)

            Next

        End If

    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim tab(5) As String

        Recursive(tab, "*.mp3", "D:")

        'on vide la liste

        ListBox1.Items.Clear()


        Dim i As Long


        For i = 1 To UBound(tab)

            ListBox1.Items.Add(tab(i))

        Next i

    End Sub


End Class


et le message d'erreur est:


La valeur ne peut pas être null.

Nom du paramètre : item


autrement dit le tableau est vide (alors que j'ai plus de 150go de mp3 sur ce disque)

Competer code source

11 réponses

Votre réponse

Discussions similaires