---
title: "Visa alla bilder i en mapp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14320-visa-alla-bilder-i-en-mapp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rinaldo"
published: "2001-08-18T22:14:00.000Z"
updated: "2002-02-10T10:06:00.000Z"
replies: 14
views: 560
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/14320-visa-alla-bilder-i-en-mapp"
---

# Visa alla bilder i en mapp

## #1 — Rinaldo, 2001-08-18T22:14Z

Går det att göra så att man radar upp alla bilder som finns i en mapp... I bild format alltså inte som dir...

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

## #2 — Koplik, 2001-08-19T01:29Z

```
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("/" & [MinMapp])
Files = Folder.Files

For each Item In Files
Response.Write "<img src='" & Item & "'>"
Next
```

Är det detta du är ute efter?

\[r\]P.ga. krogbesök så missade jag en del detaljer :e

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

## #3 — PatrikB, 2001-08-19T08:13Z

Visst går det:

```
<%
Option Explicit

Response.Buffer = TRUE
%>
<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000">
<%
Dim objFSO, objFolder, File
Dim strRootPath, strFolder, strFolderPath, strExtension, strFileName

'## - physical path to wwwroot --
strRootPath = Server.MapPath("\")

'## -- wich folder to look in --
strFolder = "/images/"

'## -- physical path to folder --
strFolderPath = strRootPath & strFolder

'## -- fso object to handle folders & files --
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	'## -- get folder info --
	Set objFolder = objFSO.GetFolder(strFolderPath)
	
	For Each File IN objFolder.Files
		strFileName = File.Name
		
		'## -- check if the file is an image --
		If InStr(strFileName, ".gif") > 0  OR InStr(strExtension, ".jpg") > 0 Then
			Response.Write "<IMG src=""" & strFolder & strFileName & """ border=""0""><BR>"
		End If
	Next
%>
</BODY>
</HTML>
```

cya,
PatrikB

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

## #4 — Rinaldo, 2001-08-19T09:03Z

När jag infogar det sita exemplet får jag felmeddelandet 
Serverobjekt fel 'ASP 0177 : 800a004c' 

Server.CreateObject misslyckades 

/applications/basket_riktig/bildgalleri.asp, rad 44 

Här är min kod:Mappen ligger i samma mapp och heter bilder

```
<%
Option Explicit
Response.Buffer = TRUE
%>

<!-- #INCLUDE FILE="adovbs.inc" -->
<HTML>
<HEAD>
<link rel="stylesheet" href="style.css">
<!-- #INCLUDE FILE="head.asp" -->
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<!-- #INCLUDE FILE="topmeny.asp" --><br>
<TABLE BORDER="0" BORDERCOLOR="BLACK" CELLSPACING="0" CELLPADDING="0" WITH="640" HEIGHT="100" ALIGN="CENTER">
<TR>
<TD WIDTH="140" VALIGN="TOP">
<!-- #INCLUDE FILE="leftmeny.asp" -->
</TD>
<TD WIDTH="500" BGCOLOR="#FFFFFF" STYLE="PADDING-LEFT:5PX;" VALIGN="TOP">

<%
Dim objFSO, objFolder, File
Dim strRootPath, strFolder, strFolderPath, strExtension, strFileName

'## - physical path to wwwroot --
strRootPath = Server.MapPath("\")

'## -- wich folder to look in --
strFolder = "/bilder/"

'## -- physical path to folder --
strFolderPath = strRootPath & strFolder

'## -- fso object to handle folders & files --
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'## -- get folder info --
Set objFolder = objFSO.GetFolder(strFolderPath)

For Each File IN objFolder.Files
strFileName = File.Name

'## -- check if the file is an image --
If InStr(strFileName, ".gif") > 0 OR InStr(strExtension, ".jpg") > 0 Then
Response.Write "<IMG src=""" & strFolder & strFileName & """ border=""0""><BR>"
End If
Next
%>

</TD>
</TR>
</TABLE>
</BODY>
</HTML>
```

00000000

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

## #5 — PatrikB, 2001-08-19T09:22Z

```
'## -- wich folder to look in --
strFolder = "/bilder/"
```

anger sökvägen till bildkatalogen från root.
Om du tex har en katalog i wwwroot som heter - bildgalleri - och i den mappen har du en annan katalog som heter - bilder - så blir sökvägen:

```
'## -- wich folder to look in --
strFolder = "/bildgalleri/bilder/"
```

Hoppas att detta hjälper,

cya,
PatrikB

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

## #6 — Vide, 2001-08-19T09:26Z

När jag får ett felmeddelande som jag itne förstår så brukar jag gå till denna sida: <http://search.support.microsoft.com/kb/c.asp?ln=en-us> 

Välj Active Server Pages och skriv in felnummret, i detta fallet: ASP 0177 : 800a004c

Och vips hittar jag rätt: [Rätt](http://support.microsoft.com/support/kb/articles/Q197/9/64.ASP?LN=EN-US&SD=gn&FR=0&qry=ASP%200177%20%3A%20800a004c&rnk=1&src=DHCS_MSPSS_gn_SRCH&SPR=ASP)... Sedan kanske inte alltid det hjälper, men det är iaf ett tips som jag tycker flera skall lära sig att använda... :)

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

## #7 — voigtann1, 2002-02-09T11:13Z

detta fungera inte alls så himla bra.. får bara rutor.... d:\\minabilder\\bild1.jpg

så vill man ju inte ha det.. man vill ju ha typ:
 [www.voigtan.com/bilder/bild2.jpg](http://www.voigtan.com/bilder/bild2.jpg) 

hur gör man det så att den bara ta mappen bilder???? kvittar var den ligger typ..

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

## #8 — PatrikB, 2002-02-09T11:26Z

visa hur din kod ser ut nu. omöjligt att säga vad som är fel i detta läge.

cya,
PatrikB

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

## #9 — voigtann1, 2002-02-09T12:25Z

\<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("bilder"))
set Files = Folder.Files
For each Item In Files
Response.Write "\<img src=""" & Item & """\>"
Next
%\>

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

## #10 — solbulle, 2002-02-09T15:32Z

Det där borde onekligen fungera bara din mapp heter bilder och befinner sig i den mapp du har scriptfilen i.

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

## #11 — PatrikB, 2002-02-09T16:41Z

Nej, denna kod funkar inte om man vill länka till bilden. 
Item innehåller endast den fysiska sökvägen till bilden på servern, tex D:\\myfolder\\imagefolder\\image.gif

Det borde se ut så här om skriptet körs i samma katalog som bilderna ligger i:

```
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("bilder"))
set Files = Folder.Files
For each Item In Files
Response.Write "<img src=""" & Item.[b]Name[/b] & """>"
Next
%>
```

cya,
PatrikB

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

## #12 — voigtann1, 2002-02-09T19:37Z

Host host :)

lite fel i den:

\<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("bilder"))
set Files = Folder.Files
For each Item In Files
Response.Write "\<img src=""**bilder/**" & Item.Name & """\>"
Next
%\>

Tack för all hjälp här! kjamar!

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

## #13 — PatrikB, 2002-02-10T00:10Z

nä, om bilderna hade legat i samma katalog som scriptet så skulle det funka ... nu låg de ju i en underkatalog ...

cya,
PatrikB

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

## #14 — solbulle, 2002-02-10T00:17Z

Patrik: Inte för att tjafsa, men stämmer det i så fall med: Server.Mappath("bilder")
Ska inte den mappen ligga I den du står i?

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

## #15 — voigtann1, 2002-02-10T10:06Z

allt stämmer.. och det fungera ju inte.. den tar ju mappen bilder så man måste göra så som jag har gjort

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14320-visa-alla-bilder-i-en-mapp