FSO - Skriva ett filträd

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 :)

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 :)

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.

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.

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!

:)

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

:)