---
title: "Lista filer i mappar och undermappar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/109117-lista-filer-i-mappar-och-undermappar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "airwolf"
published: "2004-08-13T11:45:45.000Z"
updated: "2004-08-16T06:02:23.000Z"
replies: 4
views: 437
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/109117-lista-filer-i-mappar-och-undermappar"
---

# Lista filer i mappar och undermappar

## #1 — airwolf, 2004-08-13T11:45Z

Jag har ett bildalbum script
<http://bilder.joda.se>

Men när jag försöker läsa ut antalet bilder i mappen klarar
den inte av undermappar.

I en mapp ligger kanske inga bilder utan bara en mapp som
i sin tu innehåller bilder.

Jag vill fortfarande få ut informationen hur många bilder som ligger totalt i översta mappen och mapparna under

Del av koden:

```
'Count files and subfolders in folder
objCountImages = objFSO.GetFolder(objItem).Files.Count
objCountFolders = objFSO.GetFolder(objItem).SubFolders.Count

X = X + 1

'First output subfolders
%>

<td>

	<table border="0" cellspacing="0" cellpadding="0" class="text">
	<tr>
	<td width="130" height="130" align="center" valign="middle" bgcolor="#F6F6F6">
	
	<a href="default.asp?dir=<%Response.Write(dir & "/" & objItem.Name) %>"><img border="0" src="img/folder.gif"><%=oFolder%></a>
	
	</td>
	</tr>
	<tr>
	<td>
	
	<%
	'Output Folder information
	
	Response.Write "<b>" & objItem.Name & "</b><br>"
	Response.Write "Photos: " & objCountImages & "<br>"
	Response.Write "Subfolders: " & objCountFolders & "<br>"
	Response.Write "Size: "
	
        Dim stl, stl2
        
        'Output the size of the folder
        stl = objItem.Size
        If stl < 1024 then
        	Response.Write ""&Round(stl)&" bytes"
        Else
        	stl2 = stl/1024
        	If stl2 > 1024 then
        		Response.Write ""&Round(stl2/1024,2)&" mb"
        	Else
			Response.Write ""&Round(stl2,2)&" kb"
		End If
    	End If
    	%>
```

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

## #2 — Lukaspojken, 2004-08-14T08:01Z

Jag hittade den kod. Testa att köra den.
<http://www.pellesoft.se/communicate/forum/view.aspx?msgid=26940>

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

## #3 — Engine^, 2004-08-14T10:03Z

Du behöver göra en funktion till. När/om din funktion hittar en subfolder i en folder, så anropas den andra funktionen som rekursivt går igenom subfoldern. Alltså om den funktionen hittar ännu en subfolder i den folder den ska räkna, så anropar den sig själv och utför samma procedur.

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

## #4 — airwolf, 2004-08-15T19:01Z

Om jag gör följande:

```
Function ShowSubFolders(Folder)
	For Each File in Folder.Files

	SubCount = SubCount + 1

	Next
		For Each Subfolder in Folder.SubFolders
		ShowSubFolders(Subfolder)
		Next

	response.write SubCount
	End Function
```

 

Så listar den alla filer men plussar inte ihop dem
De kommer på en lång rad.
Tex om undermapp1 innehåller 2 filer och undermapp2 5 filer och undermapp3 100 filer får jag ut:
25100

Hur gör jag för att summera detta?

Jag har testat med koden:

```
Function ShowSubFolders(Folder)
	For Each File in Folder.Files

	SubCount = SubCount + 1

	Next
		For Each Subfolder in Folder.SubFolders

			For Each File in Subfolder.Files
			SubCount = SubCount + 1
			Next

		Next

	response.write SubCount
	End Function
```

 

Men då läser den bara ur en mappstruktur neråt, ligger det filer två steg under struntar den i dessa

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

## #5 — airwolf, 2004-08-16T06:02Z

Löste det!

```
Function ShowSubFolders(Folder)

	objCountImages = objCountImages + Folder.Files.Count
	
	For Each Subfolder in Folder.SubFolders
	ShowSubFolders(Subfolder)
	Next

End Function
```

 

Lyfte sedan ut Response.Write senare i koden

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/109117-lista-filer-i-mappar-och-undermappar