Se bestemte filtyper men ikke alle

Det virker ikks som det er understøttet - Du bliver nødt til at lave 2 eller flere kald til GetFiles(...).

Ref : http://www.dotnet247.com/247reference/msgs/46/230456.aspx

Men du kan jo også bare sørge for at der kun ligger billeder i det directory... Så kan du bare lave en GetFiles("*.*");

Jeg er ikke helt sikker på hvordan, skal det se således ud???

Dim fil As FileInfo   

        Dim thisdir As DirectoryInfo
   

        thisdir = New DirectoryInfo(Server.MapPath("../Galleri/FoerEfter/"))

        For Each fil In thisdir.GetFiles("*.jpg")


                ListBox1.Items.Add(fil.Name)
             

Dim fil2 As FileInfo   

        Dim thisdir2 As DirectoryInfo
   

        thisdir2 = New DirectoryInfo(Server.MapPath("../Galleri/FoerEfter/"))

        For Each fil2 In thisdir2.GetFiles("*.jpg")


                ListBox1.Items.Add(fil2.Name)

            Next

så skal der f.eks. stå gif i anden omgang selvf

Jeps... men du behøver ikke at gøre det hele 2 gange.

Dim fil As FileInfo   
    Dim thisdir As DirectoryInfo
   
    For Each fil In Directory.GetFiles(Server.MapPath("../Galleri/FoerEfter/"), "*.jpg")
        ListBox1.Items.Add(fil.Name)
       
    For Each fil In Directory.GetFiles(Server.MapPath("../Galleri/FoerEfter/"), "*.jpg")
        ListBox1.Items.Add(fil.Name)

Haha... en smutter der :o)

    For Each fil In Directory.GetFiles(Server.MapPath("../Galleri/FoerEfter/"), "*.jpg")
        ListBox1.Items.Add(fil.Name)
       
    For Each fil In Directory.GetFiles(Server.MapPath("../Galleri/FoerEfter/"), "*.gif")
        ListBox1.Items.Add(fil.Name)

Jeg får fejl når jeg skriver koden som du gør, jeg har nu følgende:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim fil As FileInfo
        Dim thisdir As DirectoryInfo

        thisdir = New DirectoryInfo(Server.MapPath("../Galleri/FoerEfter/"))

        For Each fil In thisdir.GetFiles("*.jpg")

            ListBox1.Items.Add(fil.Name)
            ListBox2.Items.Add(fil.Name)

        Next

        thisdir = New DirectoryInfo(Server.MapPath("../Galleri/FoerEfter/"))

        For Each fil In thisdir.GetFiles("*.gif")

            ListBox1.Items.Add(fil.Name)
            ListBox2.Items.Add(fil.Name)

        Next

        If Not Page.IsPostBack Then

            ListBox1.SelectedIndex = 0
            Image1.ImageUrl = "/Galleri/FoerEfter/" + ListBox1.SelectedItem.Value

            ListBox2.SelectedIndex = 0
            Image2.ImageUrl = "/Galleri/FoerEfter/" + ListBox2.SelectedItem.Value
        End If

    End Sub

Nu kan jeg godt se jpeg og gif filer i min liste, men nu virker det sidste ikke - kan man kun bruge next en gang??? jeg har jo brugt den 2

det sidste der sker er at når jeg vælger et billede i min listbox, så vises billedet, men det sker ikke mere, jeg er så i tvivl om det er pga at jeg bruger next 2 gange, jeg er ikke så god til de løkker...

Jeg har bare skrevet det ind herude, og er bestemt ikke VB-mand - så der kan sagtens være masser af fejl i det... Jeg havde f.eks. ikke fanget den med at man skulle afslutte med Next :o)

Jeg forstår ikke helt hvad du men med at det sidste ikke virker - relateret til dine løkker.... Hvis du både ser jpg og gif virker begge din løkker jo ?!?

Er det sidste det med at du sætter item 0 selected eller ?

Haha.... Nåja. Jeg var vist lidt træg om at opdatere vinduet der :o)

Nej - det skulle ikke have noget at gøre med at du skriver next to gange... Det er der ikke noget problem i.

Kan du ikke vise den kode der køres når når du vælger i en listboks ?
(en handler af IndexChanged).

Desuden vil jeg gerne se din PageInit metode. Så skal jeg nok finde ud af hvad der kikser.

Nej der er noget mere kode, men før jeg tilføjede gif, virkede det hele - dvs. at jeg kunne vælge et billede fra listboxen og få det vist på siden, nu viser den bare et kryds, som når den ikke kan finde billedet:

her er resten af koden:

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim str As String

        str = ListBox1.SelectedIndex.ToString()
        Image1.ImageUrl = "/Galleri/FoerEfter/" + ListBox1.SelectedItem.Value
    End Sub

    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
        Dim str As String

        str = ListBox2.SelectedIndex.ToString()
        Image2.ImageUrl = "/Galleri/FoerEfter/" + ListBox2.SelectedItem.Value
    End Sub

Det er som om det sidste af koden ikke virker mere efter de ændringer jeg har lavet:

If Not Page.IsPostBack Then

            ListBox1.SelectedIndex = 0
            Image1.ImageUrl = "/Galleri/FoerEfter/" + ListBox1.SelectedItem.Value

            ListBox2.SelectedIndex = 0
            Image2.ImageUrl = "/Galleri/FoerEfter/" + ListBox2.SelectedItem.Value
        End If

Nu har jeg fundet fejlen, det var mig selv der havde dummet mig hehe.

Tak for hjælpen smid lige et svar og der er point til snepnet ;0)

Fint nok :o) - du må skrive hvis der skulle være andet.
Mvh

Måske du kan hjælpe mig med følgende spg: http://www.eksperten.dk/spm/522972 omkring validering på web10

Det kan jeg godt, men guidmastermaster har givet dig svaret :o)
Du bliver nødt til også at checke på serveren om indtastningerne er gyldige.
Mvh