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
27
28
29
30
31
32
33
34
35
36
37
38
 

    'Ορίζουμε τους φακέλους στους οποίους θα μετρήσουμε πόσα αρχεία έχουμε

    Dim NormalDirInfo As New DirectoryInfo(Server.MapPath("~/CommonFiles/Gallery/normal"))
    Dim ThumbDirInfo As New DirectoryInfo(Server.MapPath("~/CommonFiles/Gallery/thumbs"))
    
    'Παίρνουμε δύο λίστες με πληροφορίες για τα αρχεία
    Dim NormalFileInfo = NormalDirInfo.GetFiles()
    Dim ThumbFileInfo = ThumbDirInfo.GetFiles()
 
    'Ορίζουμε ένα array list που θα χρησιμοποιήσουμε σαν data source για τα paths των φωτογραφιών
    Dim FileList As New ArrayList()
        
        'Παίρνουμε τα paths για τις κανονικές φωτογραφίες

        For Each NormalFilePath As FileInfo In NormalFileInfo

            'Ελέγχουμε αν υπάρχει η φωτογραφία και στο φάκελο thumbs. Αν είναι μπαίνει το path στο Filelist. Αν όχι το αφήνω σε εσάς να κάνετε ότι έλεγχο
            'θέλετε 

            For Each ThumbsFilePath As FileInfo In ThumbFileInfo

                If NormalFilePath.Name = ThumbsFilePath.Name Then
                    FileList.Add(NormalFilePath)
                    Exit For
                End If

            Next

    
    PhotoRepeater.DataSource = FileList
    PhotoRepeater.DataBind()
%>

 <asp:Repeater ID="PhotoRepeater" runat="server">
        <ItemTemplate>
    
        <a class="highslide" href="<%# Eval("Name", "CommonFiles/Gallery/normal/{0}") %>" onclick="return hs.expand(this, inPageOptions)">
        <img src="<%# Eval("Name", "CommonFiles/Gallery/thumbs/{0}") %>" alt=""/>
        </a>
       
        </ItemTemplate>
       
    </asp:Repeater>