Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        MuestraDatos()
    End Sub

    Private Sub MuestraDatos()
        Dim d As New DirectoryInfo(MapPath("~/slider/"))
        Dim r As FileInfo() = d.GetFiles()
        Dim dt As New DataTable()
        dt.Columns.Add("path")

        For i As Integer = 0 To r.Length - 1
            Dim row As DataRow = dt.NewRow()
            row("path") = "~/slider/" + r(i).Name
            dt.Rows.Add(row)
        Next
        DataList1.DataSource = dt
        DataList1.DataBind()
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        If FileUpload1.HasFile Then
            Dim path1 As String = "~/slider/" + Guid.NewGuid().ToString() + "" + Path.GetExtension(FileUpload1.FileName)
            FileUpload1.SaveAs(MapPath(path1))
            Response.Write("Imagen guardada")
            MuestraDatos()
        End If
    End Sub

    Protected Sub LinkButton1_Command(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.CommandEventArgs)
        File.Delete(MapPath(e.CommandArgument.ToString()))
        Response.Write("Imagen eliminada satisfactoriamente")
        Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
    End Sub