Repeater carga imagenes de un directorio

[humb3rt0x]

Hola Bueno tengo un problema , tengo un repeater que me muestra imagenes de un directorio, ya que le asigno un array, pero este array es de una dimension, ahora mi array es 2 dimesiones, y quiro solo que me muestre la informacion que esta en la primera dimensión: aca Pongo el codigo:

client code: Veran la etiqueta img, tiene como origen un arry de una dimension:

<asp:Repeater ID="Rp_Producto" runat="server">
<ItemTemplate>


<p><img src="<%# Container.DataItem %>" /></p>
<p>
<asp:Label ID="Label1" runat="server" Text="<%# Container.DataItem %>"></asp:Label></p>
</div>

</ItemTemplate>



</asp:Repeater>

behind code:

Imports System.IO

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


Dim NomCat As String
Dim NomFile As String
Dim j As Integer = 0

NomCat = Request("categoria")
NomCat = Replace(NomCat, "'", "")

If NomCat <> Nothing Then
Dim imagenes(Directory.GetFiles(Server.MapPath("../a-1premium/images/" & NomCat & "/thumbnail/")).Length, 1) As String

Dim sFile As String
For Each sFile In Directory.GetFiles(Server.MapPath("../a-1premium/images/" & NomCat & "/thumbnail/"))
NomFile = Path.GetFileNameWithoutExtension(sFile).ToString ' solo es el nombre

If NomFile <> "Thumbs" Then
sFile = Replace(sFile, "\", "/")

Dim i As Integer = 0
i = InStr(sFile, "images")
Dim QuitarSec As String
QuitarSec = Left(sFile, i - 1)

sFile = Replace(sFile, QuitarSec, "")
imagenes(j, 0) = sFile
imagenes(j, 1) = NomFile
j += 1

End If

Next
Rp_Producto.DataSource = imagenes
Rp_Producto.DataBind()
End If






End Sub

[humb3rt0x]

Porfavor alguien ayudeme,necesito eso de manera urgente.

[humb3rt0x]

Bueno nadie me pudo ayudar(porfavor moderadores todos sabes que ustedes dominan mucha asp.net, traten de darnos una manito), pero aqui esta la solucion la encontre.

behingCode:



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

Dim myDV As DataView
myDV = CreateDataSource

' Repeater that outputs plain comma seperated data
Rp_Producto.DataSource = myDV
Rp_Producto.DataBind()


End Sub

Function CreateDataSource() As DataView



Dim myDataTable As New DataTable
Dim myDataRow As DataRow
Dim myDataView As DataView


myDataTable.Columns.Add(New DataColumn("DirImagen", System.Type.GetType("System.String")))
myDataTable.Columns.Add(New DataColumn("NombreImg", System.Type.GetType("System.String")))





Dim NomCat As String
Dim NomFile As String
Dim j As Integer = 0

NomCat = Request("categoria")
NomCat = Replace(NomCat, "'", "")

If NomCat <> Nothing Then
Dim imagenes(Directory.GetFiles(Server.MapPath("../a-1premium/images/" & NomCat & "/thumbnail/")).Length, 1) As String

Dim sFile As String
For Each sFile In Directory.GetFiles(Server.MapPath("../a-1premium/images/" & NomCat & "/thumbnail/"))
NomFile = Path.GetFileNameWithoutExtension(sFile).ToString ' solo es el nombre

If NomFile <> "Thumbs" Then
sFile = Replace(sFile, "\", "/")

Dim i As Integer = 0
i = InStr(sFile, "images")
Dim QuitarSec As String
QuitarSec = Left(sFile, i - 1)

sFile = Replace(sFile, QuitarSec, "")


myDataRow = myDataTable.NewRow

myDataRow(0) = sFile
myDataRow(1) = NomFile

myDataTable.Rows.Add(myDataRow)


End If

Next

End If


myDataView = New DataView(myDataTable)

CreateDataSource = myDataView


End Function



Client code:



<asp:Repeater ID="Rp_Producto" runat="server">

<ItemTemplate>
<div class="Listado_Copas">

<p><img src="<%# DataBinder.Eval(Container.DataItem, "DirImagen") %>" /></p>
<p>
<%#DataBinder.Eval(Container.DataItem, "NombreImg")%></p>
</div>

</ItemTemplate>



</asp:Repeater>