recuperer les nom de ts les fichiers contenus ds un repertoire ainsi les fichiers contenus ds les sous-repertoire

slt !!!!!!!!
je veux recuperer le nom de chaque fichier d'un dossier (ainsi les fichiers contenus ds les sous-repertoire)copié ds un autre emplacement(en vb.net),
svp c très urgeant !!!!!!
j'ai essayé avec ce code ca marchait pas ok!!!!!!!!
merci d'avance de bien vouloir m'aider!!!

Dim

lesfichiers  As ArrayList

Dim dossier As System.IO.Directory

Dim tabDossier AsString()

Dim dir AsString

tabDossier = dossier.GetFiles(rep)

lesfichiers  = New ArrayList(tabDossier.Length)

For Each dir In tabDossier

lesfich.Add(dir)

Next dir

comment je dois declarer la variable rep car je l'ai declaré STRING mais ca marchait pas ok !!!!!!!!
je une solution merci encore une fois !!!!!!!!!!
ca fait partie de mon projet de fin d'etude

Salut, il te faut une fonction récursive :
Avec un formulaire comprenant un bouton(Button1), une textbox(TextBox1) et une boite folderbrowser(FolderBrowserDialog1), tu peut faire comme ca:




Dim listeDeFichiers As New ArrayList

  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        listeDeFichiers.Clear()
        TextBox1.Text = ""


        If FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            GetFiles(FolderBrowserDialog1.SelectedPath)
        End If

        For Each chaine As String In listeDeFichiers
            TextBox1.Text &= chaine & vbCrLf
        Next
    End Sub

    Private Sub GetFiles(ByVal repertoire As String)
        Dim fichiers As String()
        Dim dir As String()

        fichiers = IO.Directory.GetFiles(repertoire)
        For Each chaine As String In fichiers
            listeDeFichiers.Add(chaine)
        Next

        dir = IO.Directory.GetDirectories(repertoire)
        For Each chaine As String In dir
            GetFiles(chaine)
        Next

    End Sub

A plus.