Soyez le premier à donner votre avis sur cette source.
Snippet vu 19 877 fois - Téléchargée 36 fois
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
24 févr. 2008 à 16:25
8 juil. 2004 à 12:32
j ai une question a te posé, ton script s execute coté serveur et liste les fichiers qui sont coté serveur donc.
oi je souhaiterai voir les fichiers coter client afin d en remplir une liste deroulante. et apres envoyer les fichiers selectionner par le client au serveur pour qu il puisse l envoyer par mail...
enfin bon je souhaite recuperer oudu moin observer le nom de fichiers d un repertoire.
je tourne sous win 2000 et IIS
voilou merci d'avance pour les reponses.
seb
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.