Vis alle billeder i folder

Her er den simple udgave:

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

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

eagleeye > Ved du også hvordan man ser width og height på billede filerne, hvis man nu vil lave en list af filerne?

For at finde størrelsen på et billede skal man bruge en billede komponent, der er en gratis ImgSize og så der flere andre som koster lidt eks. ASPiamge m.f. Som regel har ens udbyder en billede komponent som kan det. Ellers kan man med FSO finde størelsen ved hjælp af disse funktioner: http://www.4guysfromrolla.com/webtech/code/imgsz.asp.html