---
title: "Visa bilder via mappnamn"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/108883-visa-bilder-via-mappnamn"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Meng"
published: "2004-08-10T12:17:56.000Z"
updated: "2004-08-26T14:54:13.000Z"
replies: 12
views: 362
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/108883-visa-bilder-via-mappnamn"
---

# Visa bilder via mappnamn

## #1 — Meng, 2004-08-10T12:17Z

Hej, jag vill börja med att säga att jag har sökt på detta men inte hittat något bra eller fungerande svar.

Jag vill att:

När jag skriver in ett mapp namn, ingen stig utan ett mappnamn. Så ska alla de (.jpg) bilder som ligger i mappen hämtas ut, alltid runt 6 st, max 10.

alltså mappnamnet hämtas via en \<%=RecSet("mapp")%\>

Formateringen klara jag själv av men hur gör jag en sådanhär funktion?!

tack sålänge  :birp

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

## #2 — Jesper T, 2004-08-10T12:45Z

Testa något liknande

```
Dim foldname : foldname=RecSet("mapp")
set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getFolder(server.mappath(foldname))
set files = folder.files

Sub listmyfiles()
Dim i : i=1
    for each Item in files
    i=i+1
        if right(Item.name,4) = ".jpg" then
            response.write "<img src ='"& Item.name &"'><br>"
        end if
       if i > 10 then exit sub
    Next
end sub

set folder = nothing
set fso = nothing
set files =nothing

Call listmyfiles()
```

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

## #3 — solbulle, 2004-08-10T12:46Z

<http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=40832&highlight=fso+and+mapp+and+bilder>
<http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=13890&highlight=fso+and+mapp+and+bilder>
<http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=101840&highlight=fso+and+mapp+and+bilder>

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

## #4 — Meng, 2004-08-10T12:52Z

ersatte Dim foldname : foldname=RecSet("mapp") med 
Dim foldname : foldname= "upload"

Har en undermapp i samma bibliotek som har två jpg bilder, svar blev:

Microsoft VBScript runtime error '800a01c3' 

Object not a collection 

/testsystem/modtagelsesrapporter/mrapporter_displayonly.asp, line 262 

VA?!

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

## #5 — solbulle, 2004-08-10T14:22Z

Kanske en fullösning, om man nu ska ha det i en sub, släng in de tre raderna med "set" först i subben så ska det fungera.
Däremot om man ska ha "exit sub" inne i subben måste de tre sista raderna fortfarande stå utanför.

Hm.. inte optimalt inte. :(

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

## #6 — Meng, 2004-08-26T10:44Z

Med koden

```
<%Dim foldname : foldname= "/upload"

Sub listmyfiles()
set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getFolder(server.mappath(foldname))
set files = folder.files
Dim i : i=1
    for each Item in files
    i=i+1
        if right(Item.name,4) = ".jpg" then
            response.write "<img href ='"& Item.name &"'><br>"
        end if
       if i > 10 then exit sub
    Next
end sub

set folder = nothing
set fso = nothing
set files =nothing

Call listmyfiles()%>
```

 

Får jag detta (kolla på den bifogade bilden)

Det jag vill är att den listar ALLA jpg bilder i mappen som anges i "foldname" och jag vill gärna kunna säga att de skal vara  width="100" och att man kan klicka på dem så de öppnas i ett nytt fönster.

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

## #7 — Meng, 2004-08-26T10:45Z

Glömde bifoga här är den

Bilagor:

- [fel1.gif](https://www.webforum.nu/a/4401.gif)

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

## #8 — Jesper T, 2004-08-26T11:00Z

foldname= "/upload/"
Det är intressantare vad som står i källkoden....än att se en "intebild". ;)

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

## #9 — Meng, 2004-08-26T11:06Z

Jo klart =)

Testade ett annat script som jag hittade här som faktiskt funkade:

```
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.Mappath("upload"))
set Files = Folder.Files
For each Item In Files
Response.Write "<img src=""upload\" & Item.Name & """ width=""100"" hspace=""5"" border=""2"">"
Next
%>
```

 

Problemet är bara att mappen de hela ska køra genom senare är 
R:\\Rep-Ombygningsordre igangværende i værksted\\

Och där i finns det mappar som heter t ex:

\\625037 KA Leipzig - Rosental\\

Hur gör jag detta? (I dessa mappar finns också Word dokument .doc så det behövs ju något filter som bara väljer .jpg filer.)

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

## #10 — Meng, 2004-08-26T11:31Z

Jag måste göra om mapp hämntningen till fysisk, eftersom detta är till ett intranät där alla har samma R:\\

Hur gör jag?

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

## #11 — Jesper T, 2004-08-26T13:17Z

Så här:

```
Set Folder = FSO.GetFolder("c:/wwwroot/hemsida/bilder/")
```

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

## #12 — Meng, 2004-08-26T13:37Z

skumt jag får Microsoft VBScript runtime error '800a004c' 

Path not found 

/afd/afd-lager/mrapporter_displayonly.asp, line 332 

Men mappen finns.. ?

Kod nu:

```
<%If RS("billeder") = "" Then%>
		Rapporten indeholer ikke noge billeder
<%Else%>
		<i>Mappe</i><br><br> R:\<b><%=RS("billeder")%></b>\*.*<br><br>
	<%
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")

	Set Folder = FSO.GetFolder("R:\" & RS("billeder") & "")
	set Files = Folder.Files
	For each Item In Files
	Response.Write "R:\Rep-Ombygningsordre igangværende i værksted\" & RS("billeder") & "\" & Item.Name & ""
	Response.Write "<a href=""R:\" & RS("billeder") & "\" & Item.Name & """ target=""new""><img src=""R:\" & RS("billeder") & "\" & Item.Name & """ width=""100"" hspace=""5"" border=""2""></a>"
	Next
	%>
<%End If%>
```

\<%=RS("billeder")%\> = test

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

## #13 — Meng, 2004-08-26T14:54Z

Kom på att jag inte behöver den fysiska stigen! R:\\ ligger på server9 och heter \\\\turbo9\\arkiv\\

Har testat och de funkar. nu har jag ett nytt problem. under arkiv så ska jag ner i mappen "Rep-Ombygningsordre igangværende i værksted" och sen är det undermapparna till dessa som jag ska ner och hämta bilder i.

Antar att de danska æ och alla mellanrum som gör att det inte funkar.

har testat att bara skriva:

```
<img src="\\turbo9\arkiv\Rep-Ombygningsordre igangværende i værksted\test\Img_0624.jpg" width="100">
```

 Och detta funkar utmärkt.

också att köra med \\\\Turbo9\\arkiv\\test\\ i scriptet så funkar det, men så snart jag går genom mappen "Rep-Ombygningsordre igangværende i værksted" så går det galet. Finns det något sätt jag kan ersätta mellanrummen och "æ" så den avläser adressen rätt?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/108883-visa-bilder-via-mappnamn