---
title: "Loopa igenom underkataloger utan funktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/93546-loopa-igenom-underkataloger-utan-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Addeladde"
published: "2003-12-28T18:42:49.000Z"
updated: "2003-12-28T21:19:09.000Z"
replies: 1
views: 154
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/93546-loopa-igenom-underkataloger-utan-funktion"
---

# Loopa igenom underkataloger utan funktion

## #1 — Addeladde, 2003-12-28T18:42Z

Hej

Finns det nått sätt man kan göra detta på utan att använda sig av en funktion?

```
<%
Function createCategoryOptions(folderspec)
	Dim filesys, demofolder, subfol, folcoll, folist
	Set filesys = CreateObject("Scripting.FileSystemObject") 
	Set demofolder = filesys.GetFolder(folderspec)  
	Set folcoll = demofolder.SubFolders   
	Set colfiles = demofolder.files
	
	for each subfol in folcoll
	  createCategoryOptions subfol
	next	
	
	for each objFile in colfiles
	  Response.write objFile.name &"<br>"
        next
End Function
%>
```

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

## #2 — Addeladde, 2003-12-28T21:19Z

Det gick till slut att göra det med en funktion men det kan ju fortfarande vara kul att veta om det går.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/93546-loopa-igenom-underkataloger-utan-funktion