Hej alle
Jeg er ved at udvikle et site, hvor jeg også skal have et
billedgalleri. For at hente billederne frem i billedgalleriet,
bruger jeg følgende kode:
----------------------------------------------------
Dim objFS,objMappe, colFiler,objFil , strExt
Set objFS = Server.CreateObject( "Scripting.FileSystemObject" )
Set objMappe= objFS.GetFolder( "C:\DitWebhotel\DinMappe" )
Set colFiler = objMappe.Files
For Each objFil in colFiler
strExt = mid(lcase(objFil.Name),InstrRev(objFil.Name,".")+1)
Select case strExt
case "jpg","gif":
Response.write( objFil.name & "<br>" )
End Select
Next
Set colFiler = Nothing
Set objMappe= Nothing
Set objFS = Nothing
----------------------------------------------------
...Og det virker sådan set fint... Nu vil jeg bare også gerne
have det lavet således, at den selv henter størrelsen af de
pågældende billeder (højde og bredde i pixels).
Hvordan kan det gøres??
Jeg håber meget at nogen kan/vil hjælpe mig hermed.
På forhånd tak
Med venlig hilsen
Christian Conradsen
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials