Hej, jag skulle vilja lista alla mina mappar (undermappar i undermappar osv...) som ligger i min wwwroot-mapp genom FSO. Är detta möjligt?
Tanken är att jag ska få upp mapparna i ett trädsystem. Har inte hittat något som kan hjälpa mig än. Någon som vet hur man kan gå till väga??

MVH Herman Olsson

Här har du något att utgå ifrån:

http://www.guffa.com/Programming_archive.asp?id=15

om man tar den koden som du skickade länk till och ändrar lite så...

Den här koden skriver ut en lista enligt följande (om jag inte tänkt fel dvs...):

<ul>
<li>kat1</li>
<li>kat2<br>
<ul>
<li>kat2.1</li>
<li>kat2.2<br>
<ul>
<li>kat2.2.1</li>
</ul>
</li>
</ul>
</ul>

<code>
Sub ShowFiles(ByRef objFS, ByVal strPath)
' lokala variabler
Dim objThisFolder, objFile, objFolder

' skapa ett objekt för mappen vi är i
Set objThisFolder = objFS.GetFolder(strPath)
' loopa igenom alla mappar i mappen
response.write "<li>" & server.htmlencode(objThisFolder.Name)
Dim bWroteUL
bWroteUL=False
For each objFolder in objThisFolder.SubFolders
if not bWroteUL then
bWroteUL=True
response.write "<br>" & vbcrlf & "<ul>" & vbcrlf
end if
' visa allt i en undermapp
Call ShowFiles(objFS, strPath & "\" & objFolder.Name)
Next
if bWroteUL then
response.write "</ul>" & vbcrlf
end if
response.write "</li>" & vbcrlf
End Sub

Dim objFS

' skapa ett FSO-objekt
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
' visa alla filer under webbroten
Call ShowFiles(objFS, Server.MapPath("/"))
' ta bort FSO-objektet
Set objFS = Nothing
</code>