---
title: "Lista *.jpg filer & Visa om bild finns!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/66839-lista-jpg-filer-visa-om-bild-finns"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jacek"
published: "2003-02-01T10:16:55.000Z"
updated: "2003-02-03T10:13:04.000Z"
replies: 8
views: 383
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/66839-lista-jpg-filer-visa-om-bild-finns"
---

# Lista *.jpg filer & Visa om bild finns!

## #1 — Jacek, 2003-02-01T10:16Z

Hallå!

Först undrar jag hur koden skall se ut för att lista alla \*.jpg filer som ligger i en map på servern.
Den skall listas ut så här:
'bild1.jpg','bild2.jpg', osv

Sen undrar jag om det funkar att göra en kod som visar en vald \*.jpg bild om bilden finns på servern i en vald mapp.
Typ:
På index.asp har jag en stor bild som heter bild.jpg. Om jag tar bort bild.jpg från mappen bilder/ på webbservern så skall index.asp ej visa bilden bild.jpg.

Permalänk: https://www.webforum.nu/p/66839

## #2 — Josef, 2003-02-01T10:43Z

Du kan ju börja med att söka här.
Hur man listar filer i en mapp har det talats om förrut.

Permalänk: https://www.webforum.nu/p/935275

## #3 — OveRRidE, 2003-02-01T11:06Z

```
set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getFolder(server.mappath("./"))

for each file in folder.files
   response.write file.name & "<br>"
next

set folder = nothing
set fso = nothing
```

Permalänk: https://www.webforum.nu/p/935280

## #4 — jboy_87, 2003-02-01T11:08Z

eller så för att lista ut bara .jpg :birp 

```
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder = FSO.GetFolder(server.mappath("bilder/"))
set Files = Folder.Files 

For each Item In Files
if right(Item.Name,4) = ".jpg" then
response.write file.name & "<br>"
end if

Next 
set Folder = nothing 
set FSO = nothing 
set Files = nothing
```

Permalänk: https://www.webforum.nu/p/935281

## #5 — solbulle, 2003-02-01T11:30Z

Kanske ännu bättre:

```
if right(lcase(Item.Name,4)) = ".jpg" then
```

Tror jag.

RED. jaja  :r   :e

Permalänk: https://www.webforum.nu/p/935290

## #6 — Poffe, 2003-02-01T13:39Z

är det inte lcase som är små?

Permalänk: https://www.webforum.nu/p/935390

## #7 — trexter, 2003-02-01T13:44Z

> **Poffe skrev:**
>
> är det inte lcase som är små?

Lowercase är "små" ja..
Uppercase är "stora"

 :)

Permalänk: https://www.webforum.nu/p/935392

## #8 — Viktor, 2003-02-01T13:52Z

Nu kanske jag är helt fel ute men är det inte bättre att skriva

```
Set Folder = FSO.GetFolder(server.mappath("bilder/*.jpg"))
```

Eller fungerar inte det?

/Viktor

Permalänk: https://www.webforum.nu/p/935396

## #9 — mikul, 2003-02-03T10:13Z

Tyvärr...
Det skule ju vara aldeless för lätt ;)

Men det borde funka utmärkt ;)

```
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder = FSO.GetFolder(server.mappath("bilder/"))
set Files = Folder.Files 

For each Item In Files
	if right(Lcase(Item.Name,4)) = ".jpg" then
		Dim strFileName
		strFileName = file.name
		response.write "<img src ='"& strFileName &"'><br>"&_
			"<font size='1' face='Verdana,Arial,Helvetica,sans-serif'><b>"&_
			 strFileName &"</b></font><br>"
	end if
Next 

set Folder = nothing 
set FSO = nothing 
set Files = nothing
%>
```

/ Mikul

Permalänk: https://www.webforum.nu/p/936784

---

Tråden på webben: https://www.webforum.nu/amne/asp/66839-lista-jpg-filer-visa-om-bild-finns