---
title: "Lista mappar och undermappar/filer i meny m.h.a FSO"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44122-lista-mappar-och-undermappar-filer-i-meny-m-h-a-fso"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "pirajan"
published: "2002-05-20T14:04:38.000Z"
updated: "2003-06-09T10:47:19.000Z"
replies: 10
views: 536
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/44122-lista-mappar-och-undermappar-filer-i-meny-m-h-a-fso"
---

# Lista mappar och undermappar/filer i meny m.h.a FSO

## #1 — pirajan, 2002-05-20T14:04Z

Ngn som har något bra script som listar alla filer och mappar i en  katalogiserad meny med länkar och allt?

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

## #2 — solbulle, 2002-05-20T14:12Z

Detta kanske kan ta dig en bit på väg:
<http://www.webforum.nu/showthread.php?s=&threadid=42570>
Sitter själv o knåpar med något liknande.

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

## #3 — pirro, 2002-05-20T19:57Z

<http://www.aspsidan.nu/files.asp?do=dl&id=408>

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

## #4 — PatrikB, 2002-05-20T21:08Z

Ngt liknande kanske skulle passa:

```
<%
Option Explicit
Response.Buffer = True

Dim intIndent
intIndent = 0
%>
<HTML>
<HEAD>
<TITLE>pbExplorer v 1.00</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>

<BODY bgcolor="#FFFFFF" text="#000000">
<%
Call CreateTreeMenu(Server.MapPath("\"))
%>
</BODY>
</HTML>
<%
Sub CreateTreeMenu(ByVal sFolderPath)
	Dim objFSO
	Dim objFolder
	
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		Set objFolder = objFSO.GetFolder(sFolderPath)
			'## -- list all folders --
			Call ListFolders(objFolder, intIndent)
		Set objFolder = Nothing
	Set objFSO = Nothing
End Sub

'## -- list all subfolders in folder --
Sub ListFolders(ByVal oFolder, ByVal iIndent)
	Dim SubFolder
	Dim strFolderName

	'## -- print out foldername --
	For Each SubFolder IN oFolder.SubFolders
		strFolderName = SubFolder.Name
		Call DoIndent(iIndent)
		Response.Write "[" & strFolderName & "]<BR>"
		Call ListFolders(SubFolder, iIndent + 1)
		Call ListFiles(oFolder, iIndent + 1)
	Next
End Sub

'## -- list all files in folder --
Sub ListFiles(ByVal oFolder, ByVal iIndent)
	Dim File
	Dim strFileName
	For Each File in oFolder.Files
		strFileName = File.Name
		Call DoIndent(iIndent)
		Response.Write strFileName & "<BR>"
	Next
End Sub

Sub DoIndent(ByVal iIndent)
	Dim N
	For N = 1 TO iIndent
		Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;"
	Next
End Sub
%>
```

indenterar endast med mellanslag

\[r\]
raden Response.Write i DoIndent ska bytas ut mot:

Response.Write "& n b s p ; & n b s p ; & n b s p ; & n b s p; "

minus mellanslag så att det blir "hårda mellanslag" i HTML-koden 

vart luddigt men hoppas att du fattar :e
\[/r\]

cya,
PatrikB

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

## #5 — Asa, 2003-06-07T13:12Z

Hur ändrar man denna kod så att filerna listas så här?

```
patric.jpg
charlotte.jpg
bilder/fil.jpg
bilder/filer.jpg
bilder/bildbank/fil.jpg
bilder/igår/fil1.jpg
bilder/igår/fil2.jpg
```

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

## #6 — LeonL, 2003-06-07T13:14Z

Hade ett sådant script till min förra hemsida (I-N). Kan försöka "sära" på scriptet och hemsidan...

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

## #7 — pirajan, 2003-06-08T18:07Z

Asa... Den där var lite låg.. :) kolla in <http://forum.gruvsjo.com/forum.asp?id=5401>

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

## #8 — solbulle, 2003-06-08T18:22Z

Om du skickar med foldernamnet som argument i funktionerna och lägger in det i utskriftssträngen så borde det väl fungera. (I lite lagom luddig princip)
Nu kommer inte meitt exempel fungera rakt av, men det kanske ger något att spinna vidare på.
Typ:

```
<%
Option Explicit
Response.Buffer = True

Dim intIndent
intIndent = 0
%>
<HTML>
<HEAD>
<TITLE>pbExplorer v 1.00</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</HEAD>

<BODY bgcolor="#FFFFFF" text="#000000">
<%
Call CreateTreeMenu(Server.MapPath("gb"))
%>
</BODY>
</HTML>
<%
	Dim foldern 
Sub CreateTreeMenu(ByVal sFolderPath)
	Dim objFSO
	Dim objFolder
	
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
		Set objFolder = objFSO.GetFolder(sFolderPath)
			'## -- list all folders --
			Call ListFolders(objFolder, intIndent,foldern )
		Set objFolder = Nothing
	Set objFSO = Nothing
End Sub

'## -- list all subfolders in folder --
Sub ListFolders(ByVal oFolder, ByVal iIndent,foldern )
	Dim SubFolder
	Dim strFolderName

	'## -- print out foldername --
	For Each SubFolder IN oFolder.SubFolders
		strFolderName = SubFolder.Name
		Call DoIndent(iIndent)
foldern = "\" & strFolderName & "\"
		Response.Write "[" & strFolderName & "]<BR>"
		Call ListFolders(SubFolder, iIndent + 1,foldern)

		Call ListFiles(oFolder, iIndent + 1,foldern)
	Next
End Sub

'## -- list all files in folder --
Sub ListFiles(ByVal oFolder, ByVal iIndent,foldern)
	Dim File
	Dim strFileName

	For Each File in oFolder.Files
		strFileName = File.Name
		Call DoIndent(iIndent)
		Response.Write foldern & strFileName & "<BR>"
	Next
End Sub

Sub DoIndent(ByVal iIndent)
	Dim N
	For N = 1 TO iIndent
		Response.Write "    "
	Next
End Sub
%>
```

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

## #9 — Asa, 2003-06-08T21:21Z

Svar till pirajan:

Jag hjälper ju bara honom...

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

## #10 — Asa, 2003-06-08T21:23Z

Det vore sjysst LeonL.

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

## #11 — pirajan, 2003-06-09T10:47Z

Okej... Du har väl rätt Åsa...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/44122-lista-mappar-och-undermappar-filer-i-meny-m-h-a-fso