---
title: "Enkelt script för att lista filer som länkar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/95273-enkelt-script-för-att-lista-filer-som-länkar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tstone"
published: "2004-01-20T12:21:24.000Z"
updated: "2006-09-04T12:52:19.000Z"
replies: 16
views: 7975
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/95273-enkelt-script-för-att-lista-filer-som-länkar"
---

# Enkelt script för att lista filer som länkar

## #1 — tstone, 2004-01-20T12:21Z

Ett enkelt nybörjarskript för att visa filer i en mapp som länkar. 
Byt ut ett variabelt värde - så är det klart att köra!

:D Nicklas

Snutten:

```
<%
'Enkelt script för att lista filer som länkar i ASP
'byt ut "res/" till din mapp!
Dim fs, f, f1, s, sf, mapp
mapp = "res/"
folderspec = (server.mappath(mapp))
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
s = s & f1.name
s = s & vbCrLf
Next
set fso=server.createObject("Scripting.FileSystemObject")
set folder=fso.getFolder(server.mappath(mapp))
for each f1 in folder.files
response.write "<A HREF=" & mapp & f1.name & " TARGET = _blank>" & f1.name & "</A>" & "<br>"
next
%>
```

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

## #2 — Danny, 2005-11-08T19:07Z

Herrejävlar. Här söker man igenom halva internet efter ett såhär enkelt och bra skript. Så hittar man det via Google på själva webForum!!! ska börja med att söka här nästa gång...

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

## #3 — Erik Juhlin, 2005-11-12T11:32Z

Söker man på Google så kan man i alla fall ha turen att få ett vettigt script. Det här är ganska fulkodat. Ingen indetering och inga objekt stängs efter användning.
Lite kul också att två FSO-objekt öppnas. Fast ena med Server.CreateObject och andra med CreateObject.

Om man är nybörjare så borde man väl förstå att man gör bort sig om man försöker lära ut saker man själv inte kan...

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

## #4 — Danny, 2005-11-12T14:32Z

jaha... menar du att det inte är nå vidare bra idé att använda det där?! ...\*suck\* jaja... får väl byta ut det nångång då... letade så länge utan att hitta nåt bara, jobbigt. Hittade massa avancerade saker med upload och grejjer. Men det enda jag vill ha är nåt som listar filer precis som om det vore tillåtet på servern att titta i en katalog som i utforskaren i Windows.

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

## #5 — UlfT, 2005-11-12T14:45Z

> **Danny skrev:**
>
> jaha... menar du att det inte är nå vidare bra idé att använda det där?!

Annars kan du ju utgå från det scriptet för att skapa något liknande som är bättre. De fel som Erik Juhlin pekade på, är ju enkla att korrigera själv. :)

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

## #6 — Danny, 2005-11-12T16:09Z

Jo det går ju att justera. Men det känns som det är enklare att hitta något färdigt :) Nu vet jag ju lite mer vad man kan söka på.

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

## #7 — qpw, 2006-09-01T22:08Z

Hej, är nybörjare på detta. Har fått scriptet att fungera. Nu undrar jag om man kan lägga till andra parametrar så att man kan visa t ex skapadedatum för filerna? Kan man även dölja suffixen?

Mvh

Peter

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

## #8 — @nders, 2006-09-02T05:36Z

Eftersom ovanstående script inte är speciellt bra, så:

```
<%
sFolder = "/mappen_med_filerna_i/"
set oFso = Server.CreateObject("Scripting.FileSystemObject")
set oFolder = oFso.GetFolder(server.mappath(sFolder))
for each oFile in oFolder.files
	response.write "<a href=""" & sFolder & oFile.name & """ target=""_blank"">" & Left(oFile.name, instrrev(oFile.Name, ".") - 1) & "</a> (" & oFile.DateCreated & ")<br>"
next
set oFolder = Nothing
set oFso = Nothing
%>
```

<http://www.devguru.com/technologies/vbscript/14027.asp>

Mvh

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

## #9 — qpw, 2006-09-03T14:40Z

Kanon!

Tack för hjälpen

Peter

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

## #10 — qpw, 2006-09-03T18:31Z

Fråga ang. senaste scriptet: hyperlänkarna fungerar inte om filnamnet innehåller skandinaviska tecken. Kan man komma runt detta? Hittade ingen parameter där man kan ställa in så att filens suffix döljs. Kan man göra detta? Går det att få filerna att bli sorterade i alfabetiskt ordning istället för som nu att den yngsta filen visas högst upp i listan? Mvh/Peter

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

## #11 — @nders, 2006-09-03T18:39Z

> hyperlänkarna fungerar inte om filnamnet innehåller skandinaviska tecken. Kan man komma runt detta?

Använd Server.URLEncode() på filnamnet i länken.

> Hittade ingen parameter där man kan ställa in så att filens suffix döljs. Kan man göra detta?

Nej, det finns ingen parameter för det, därför löste jag det i koden åt dig. Fungerade inte det?

> Går det att få filerna att bli sorterade i alfabetiskt ordning istället för som nu att den yngsta filen visas högst upp i listan?

Då får du nog lägga in dem i en array eller ett recordset och sedan sortera själv. Jag tror inte det finns en sådan funktion i FSO.

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

## #12 — qpw, 2006-09-03T19:01Z

Hej , sorry - visst fungerade att dökja suffixen nu när jag tittar lite närmare på resultatet. Är dock för rudis för att förstå var "Server.URLEncode" skall in i scriptet. Då stupar även nästa funktion - det där med att få filnamnen att bli sorterade i alfabetisk ordning. Kan du möjligtvis hjälpa mig med "Server.URLEncode" i scriptet så vore jag jättetacksam!

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

## #13 — @nders, 2006-09-03T19:04Z

```
response.write "<a href=""" & Server.URLEncode(sFolder & oFile.name) & """ target.....
```

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

## #14 — qpw, 2006-09-04T10:26Z

blir inge riktigt bra det där med Server.URLEncode...
Har lagt in det i scriptet på min [sida](http://www.peterwestin.com/filer/filer.asp) men det går fortfarande inte att öppna filnamn med å, ä, ö i.

Det kompletta scriptet som jag nu använder på min sida ser ut som följande:

\<%
sFolder = "/filer/pressreleaser/"
set oFso = Server.CreateObject("Scripting.FileSystemObject")
set oFolder = oFso.GetFolder(server.mappath(sFolder))
for each oFile in oFolder.files
	response.write "\<a href=""" & Server.URLEncode(sFolder & oFile.name) & """ target=""\_blank""\>" & Left(oFile.name, instrrev(oFile.Name, ".") - 1) & "\</a\> (" & oFile.DateCreated & ")\<br\>"
next
set oFolder = Nothing
set oFso = Nothing
%\>

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

## #15 — @nders, 2006-09-04T10:30Z

Till att börja med så verkar det som att du har med mappen två gånger. Om asp-filen ligger i samma mapp som filerna som ska laddas hem får du ta bort *sFolder* ur länken.

Vid närmare eftertanke var det nog ingen bra idé att köra urlencode på hela klabbet. 

Får vi se hur din kod ser ut nu, så kanske vi kan hitta något.

edit: där kom koden ja.

Prova följande:

```
<%
sFolder = "/filer/pressreleaser/"
set oFso = Server.CreateObject("Scripting.FileSystemObject")
set oFolder = oFso.GetFolder(server.mappath(sFolder))
for each oFile in oFolder.files
response.write "<a href=""" & sFolder & Server.URLEncode(oFile.name) & """ target=""_blank"">" & Left(oFile.name, instrrev(oFile.Name, ".") - 1) & "</a> (" & oFile.DateCreated & ")<br>"
next
set oFolder = Nothing
set oFso = Nothing
%>
```

Jag har alltså lyft ut sFolder ur urlencode.

mvh

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

## #16 — @nders, 2006-09-04T10:36Z

En annan sak kan ju vara att du nog förresten bara bör köra urlencode på själva filnamnet, och inte med punkt+suffix.

mvh

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

## #17 — qpw, 2006-09-04T12:52Z

Nu verkar allt fungera! Tack ännu en gång. Liten fråga: hur kommer det sig att scriptet inte funkar om man har mellanslag i filnamnen?

Finns det någon bra källa att läsa sig till hur man gör en egen sortering av filerna för att få dem i alfabetisk ordning?

Peter

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/95273-enkelt-script-för-att-lista-filer-som-länkar