Få siden til at finde billeder på harddisken

Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder("c:\inetpub\wwwroot\billeder\")

        Set FolderFiles = Folder.Files
       
        For Each File In FolderFiles
            i = i + 1
            If inStr(LCase(File),".jpg") or inStr(LCase(File),".gif") Then
Response.Write("<img src=""" & File.Name & """>")

//>Rune

mangler der ikke noget i det eks.?

Nææ hva'da?

//>Rune

Hov, sorry.. Der mangler selvfølgelig Next!

Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder("c:\inetpub\wwwroot\billeder\")

        Set FolderFiles = Folder.Files
       
        For Each File In FolderFiles
            i = i + 1
            If inStr(LCase(File),".jpg") or inStr(LCase(File),".gif") Then
Response.Write("<img src=""" & File.Name & """>")
        Next

//>Rune

skal "if" ikke afsluttes, og hvad med "for each"

*G* Jeg skal lige vågne ik' da! ;o)

Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder("c:\inetpub\wwwroot\billeder\")

        Set FolderFiles = Folder.Files
       
        For Each File In FolderFiles
            i = i + 1
            If inStr(LCase(File),".jpg") or inStr(LCase(File),".gif") Then
Response.Write("<img src=""" & File.Name & """>")
            End If
        Next

//>Rune

den viser bare en masse krydser

jeg havde ikke rettet stien,nu virker det :-)
TAKKER

En masse krydser? -viser den lige så mange krydser som der er filer i dit dir?
-har du et link så jeg kan se hvad du laver?

//>Rune

Hvad nu hvis jeg har nogle under mapper i Billeder?

Hvor der også er billeder der skal med

Anytime ;o)
Thx 4 Poinz

//>Rune

Så er du nødt til at lave scriptet igen, med en mere sti!

-Jeg kan ik' lige huske hvordan det er man går i undermapper med FSO!

//>Rune