Rekursiv funktion til at liste mapper med FSO

Jeg kunne forestille mig at det ville se nogenlunde således ud:


function listFoldersDeep(folders, indent)
  dim strFolderlist
  strFolderlist = indent & folders.parentfolder.name & "<br>"
  for each fldr in folders
    strFolderlist = strFolderlist & listFoldersDeep(fldr.subfolders, indent & "&nbsp;")
  next
  listFoldersDeep = strFolderlist
end function

function listFolders(path)
  dim fso, folders, fldr
  set fso = server.createobject("Scripting.FileSystemObject")
  set folders = fso.GetFolders("c:\")
  listFolders = listFoldersDeep(folders, "")
end function

<%
Function ShowFolderList(folderspec)
  Dim fso, f, f1, s, sf
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(folderspec)
  Set sf = f.SubFolders
  For Each f1 in sf
      s = s & f1.name
      s = s & "<BR>"
      s = s & ShowFolderList(f1.Path)
  Next
  ShowFolderList = s
End Function

response.write ShowFolderList("dinsti")
%>

Nå, jeg kan se der var lidt bugs i min version. Den skal se således ud:

function listFoldersDeep(folder, indent)
  dim strFolderlist
  strFolderlist = indent & folder.name & "<br>"
  for each fldr in folder.subfolders
    strFolderlist = strFolderlist & listFoldersDeep(fldr, indent & "&nbsp;")
  next
  listFoldersDeep = strFolderlist
end function

function listFolders(path)
  dim fso, folders, fldr
  set fso = Server.CreateObject("Scripting.FileSystemObject")
  set folder = fso.GetFolder(path)
  listFolders = listFoldersDeep(folder, "")
end function

response.Write listFolders("c:\temp")

Grunden til at jeg har to funktioner til at håndtere denne rekursion er at jeg gerne vil undgå at oprette fso-objektet hver gang jeg itererer (jeg har en eller anden mistanke om at det er mere resursekrævende og performer dårligere hvis man skal oprette FSO'en hver gang - men det er mest en fornemmelse :)).

Hej - tak til jer begge.

softspot >
Forstår godt dit argument for at have 2 funktioner, men jeg tror alligevel jeg satser på busschou´s funktion.

busschou >
Takker for den enkle løsning :-)

det var så lidt :o)
Hvis du vil have filer med er den jo lige til at udbygge

præcis :-)

Ligger du tilfældigvis inde med et eksempel hvor filer medtages ?

nope desværre, men sådan her så tager dem dem med
----
<%
Function ShowFolderList(folderspec)
  Dim fso, f, f1, s, sf, file
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(folderspec)
  Set sf = f.SubFolders
  For Each f1 in sf
      s = s & f1.name
      s = s & "<BR>"
      s = s & ShowFolderList(f1.Path)
      For Each file in f1.Files
        s = s & file.Name & "<br>"
      Next
  Next
  ShowFolderList = s
End Function

response.write ShowFolderList("dinsti")
%>
---
Så kan du evt bikse med det så det kommer til at se ud som ønsket, altså om filer skal over mapper eller under når der er flere foldere. Eller hvis du vil have indrykning for overskuelighedens skyld

Tusind tak for hjælpen.

Jeg spekulerede på... I nedenstående linie:

For Each f1 in sf

er 'f1' et variabelnavn man selv bestemmer ?

det var så lidt da :o)
Ja det er det i en For Each løkke
--
For Each a In b
--
der bestemmer du selv "a" men den skal blot være Dim´et tidligere
"b" skal der imod være sat på forhånd, og det er den i dit tilfælde ved
Set sf = f.SubFolders
Hvorved sf peger på en collection af foldere