1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
Partial Class _Default
Inherits System.Web.UI.Page
Public Chemin As String
Public NomFic(500) As String
Public Rang As Integer
Public Max As Integer
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim Fic As String
Dim I As Integer
Chemin = "C:\Inetpub\wwwroot\Essais\Images\"
Fic = Dir(Chemin & "*.jpg")
If Not IsPostBack() Then
If Fic <> "" Then
I = -1
Do While Fic <> ""
I += 1
NomFic(I) = Fic
Fic = Dir()
Loop
End If
Max = I
Rang = 0
End If
End Sub |
Partager