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
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.