---

Hej alle

Jeg er ved at lave et site, hvor jeg vil have et billedgalleri,
der skal vise nogle billeder fra en række forskellige events.

Jeg vil lave det således, at brugeren selv skal oploade disse
billeder til sitet. Hvert galleri(/kategori) har sin egen mappe,
hvorunder de respektive billeder til det pågældende galleri
ligger.

Siden skal så selv kunne gå ind i den pågældende mappe og finde
alle de filer, der har filtypenavne, der enten er gif eller jpg.
Disse billeder skal så vises på sitet via <IMG SRC=""> osv...

Hvordan laves det script, der selv kan finde alle gif og/eller
jpg filer i en given mappe? - Og derpå skrive filnavnene?


Jeg håber meget at nogen kan/vil hjælpe hermed


På forhånd tak


Med venlig hilsen
Christian


PS: Jeg bruger IIS på windows platform - og mine sider er
naturligvis ASP.

--
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

---

"Christian Conradsen" <chrisjon@vip.cybercity.dk> wrote
> Hvordan laves det script, der selv kan finde alle gif og/eller
> jpg filer i en given mappe? - Og derpå skrive filnavnene?

Nedenstående skulle klare det for dig (Utestet 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 = Right(objFil.Name, 4)
If strExt = ".jpg" OR strExt = ".gif" Then
   Response.write( objFil .name & "<br>" )
End If
Next

Set colFiler = Nothing
Set objMappe= Nothing
Set objFS = Nothing
%>

--
Jakob Andersen

---

"Jakob Andersen" <jakob@effectus.dk> skrev
> > Hvordan laves det script, der selv kan finde alle gif og/eller
> > jpg filer i en given mappe? - Og derpå skrive filnavnene?
>
> Nedenstående skulle klare det for dig (Utestet 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 = Right(objFil.Name, 4)
> If strExt = ".jpg" OR strExt = ".gif" Then
> Response.write( objFil .name & "<br>" )
> End If
> Next
>
> Set colFiler = Nothing
> Set objMappe= Nothing
> Set objFS = Nothing
> %>

Det vil måske være en meget god ide ikke at skelne mellem store og små
bogstaver og så er du kommet til at lave en fejl ved at lave mellemrum hvor
du skriver objFil .name, det skal være objFil.name

Jeg ville foretrække følgende kode, så kan man også nemt tilføje jpeg og
andre, hvis man har lyst til det:

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

Mvh. Christoffer Thygesen

http://CHT.dk