LISTER LES FICHIERS D'UN DOSSIER

    Public Class FichDoss

        Public Function ListeFich() As ArrayList

            Dim Message As String = "fichiers non trouvés"

            Dim mListe As New ArrayList()

            Dim sDir As String = HttpContext.Current.Request.PhysicalApplicationPath + "fichiers\" ' dossier ou chercher les fichiers soit la racine\fichiers
            Dim Dir = New DirectoryInfo(sDir)
            Dim d As DirectoryInfo
            Dim hl As HyperLink
            Dim f As String
            Dim courPage As String = "default.aspx?page=" ' adresse de la page courante
            Dim fRep As String
            Dim files() As String
            files = Directory.GetFiles(sDir)

            For Each f In files
                fRep = Regex.Replace(f.Substring(sDir.Length), ".htm", "")
                hl = New HyperLink()
                hl.Text = fRep
                hl.NavigateUrl = courPage + fRep
                mListe.Add(hl)

            Next

            Return mListe

        End Function

    End Class


et on le recupere dans une page:

                Dim fd As New FichDoss()

                    For i = 0 To fd.ListeFich.Count - 1
                        pnCentre.Controls.Add(fd.ListeFich(i))
                        pnCentre.Controls.Add(New LiteralControl("<br/>"))
                    Next