Lister les fichiers d'un dossier

Commenter

Contenu du snippet

j'ai mis une variable pour le dossier ou sont les fichiers a lister mais ca peut etre facilement remplace pas, par un bloc property get/set

Source / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_ErB)