---
title: "FSO - Skriva ett filträd"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/119114-fso-skriva-ett-filträd"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Troxy"
published: "2005-01-02T13:04:32.000Z"
updated: "2005-01-03T21:05:20.000Z"
replies: 6
views: 411
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/119114-fso-skriva-ett-filträd"
---

# FSO - Skriva ett filträd

## #1 — Troxy, 2005-01-02T13:04Z

Hej, jag sitter här med FSO och vill göra följande:

Utgå från en speciell folder. Sedan skriva ut alla subfolders i foldern, och sedan varje subfolders subfolder osv. Ett komplett filträd alltså, som endast visar mappar!

Antagligen måste man anropa funktioner i andra funktioner och liknande. Det blev så snurrigt när jag satt och försökte, kan ingen försöka förklara hur man ska göra?

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

## #2 — mattiasnordin, 2005-01-02T13:10Z

För att loopa ut alla kataloger i en katalog kan du göra så här:

```
	varFolderPath = "/fotoalbum/" 
	filepath = server.mappath(varFolderPath) 
	'response.write "Vald path = <b> " &varFolderPath &"</b>"
	'response.write "<hr>Komplett filpath = <b>" &filepath &"</b>"
	Set fso = Server.CreateObject("Scripting.FilesystemObject")
	Set folder = fso.GetFolder(filepath)  
	Set folderCollection = folder.SubFolders %> 
	<table>
	<% ' LOOPAR UT KATALOGNAMNEN'
	For Each subfol in folderCollection %>
		<tr><td>
		<font face=verdana size=2>
			<img align="absmiddle" src="ico_map_closed_16.gif"> <b><%=subfol.Name%></b> 
		</font>
		</td><td>
		<font face=verdana size=1>
			 <%=subfol.Size\1024%> Kb 
		</font>
		</td></tr>
	<% varFolderCount = varFolderCount +1 %>
	<% Next %>
	</table>
```

Du får manipulera ovan för att kunna gå in i nästa katalog :)

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

## #3 — mattiasnordin, 2005-01-02T13:14Z

Tex: 

\<a href="minsida.asp?vald_katalog=\<%=subfol.Name%\>"\>
\<img align="absmiddle" src="ico_map_closed_16.gif"\> \<b\>\<%=subfol.Name%\>\</b\> 
\</a\>

Så lägger du till...

\<% 'INPUT
sValdKatalog = Request.querystring("vald_katalog") 
%\>

Och ändrar 

varFolderPath = "/fotoalbum/" **&sValdKatalog  &"/"**

Så kan du klicka dig ner i nästa katalog :)

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

## #4 — Troxy, 2005-01-02T13:20Z

Okej, så man skriver ut mappnamnen med en for-loop. Nu kommer jag till problemet hur man skriver ut mapparna i mapparna man listar. Det ska ju gå hela vägen in i alla mappar tills det inte finns några.

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

## #5 — wallabou, 2005-01-02T13:23Z

Troxy: Modifiera mattias kod lite så att det blir en funktion istället och sätter vilken mapp det är som en parameter till funktionen och kan på så sätt anropa funktionen inne i for-loopen för att få ut alla mapparna.

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

## #6 — Troxy, 2005-01-02T14:24Z

Tack! Nu fick jag det att fungera! En fråga bara: Om en mapp är tom, ska det stå "Tomt". Hur kollar jag med en If-sats om antal subfolders är 0?

EDIT: Man körde visst objSubFolders.Count för att få antal mappar.  :bire 

Tack för hjälpen nu!

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

## #7 — mattiasnordin, 2005-01-03T21:05Z

:) 

Glöm inte att  acceptera som slutgiltigt svar om du är nöjd med svaret 

:)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/119114-fso-skriva-ett-filträd