FSO (Igen)

koden genererar inga fel :) Det är heller inte det som är problemet. :)
Hur skriver jag ut filnamn plus tillägg i mina subsolders?

Kan man också efter mappnamnet skriva hur många filer det finns i mappen? :)

<%
set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getFolder(server.mappath(session("username") & "/"))
set SF = folder.subfolders

for each Item in SF

	set files = folder.files

		response.write "Mapp: " & Item.name & "<br>"
		response.write "&nbsp;&nbsp;&nbsp;&nbsp;Dokument: " & [b]file.name[/b] & "<br>"

next

set folder = nothing
set fso = nothing
set SF =nothing
%>

Edit: Nu är det rätt :)

Sökte lite i forumet och fann denna! :) Inte exakt vad jag söker, så den inte listar filerna som ligger i subfoldermappen uder mappnamnet. Men den såg mycket smidigare ut än mig version.

<%
Dim fso, folder, subFolder,f

    set fso = server.createobject("scripting.filesystemobject")

    set folder = fso.getFolder(server.mappath(session("username") & "/"))
    
    For Each subFolder in folder.subFolders
        response.write subFolder.name & "<br>"
    Next
    
    For Each f in folder.files
        response.write f.name
    Next
%>

<%
Dim fso, folder, subFolder,f

    set fso = server.createobject("scripting.filesystemobject")

    set folder = fso.getFolder(server.mappath(session("username") & "/"))

    For Each f in folder.files

        response.write f.name & "<br>"

    Next
    
    For Each subFolder in folder.subFolders

        response.write subFolder.name & "<br>"

	set folder2 = fso.getFolder(server.mappath(session("username") & "/" & subFolder.name & "/"))
	set files = folder2.files

	for each Item in files

		response.write "&nbsp;&nbsp;&nbsp; " & Item.name & "<br>"

	Next

    Next
%>