"Peter Lykkegaard" <polonline@hot.mail.com> wrote in message
news:Re8O6.159$7l3.7896@news.get2net.dk...
> Du skal også have gang i noget iterativt kald
Jeg gætter på at Peter mener Rekursivt, så jeg strikkede lige dette sammen ,
altså det er ikke optimal kode så klager sendes til jakob@karlkoder.dk
<%
Function spacer(antal)
for i = 1 To antal
Response.Write("-")
next
End function
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set startmappe = objFS.GetFolder("c:\backup\")
Set objFC = startmappe.SubFolders
Level = 0
Function DoListMapper(Level, mappe)
Set objFC = mappe.Subfolders
For Each undermappe in objFC
Response.write(spacer(Level))
Response.write(right(undermappe, len(undermappe) - instrrev(undermappe,
"\"))
Response.write("<br>")
DoListMapper Level + 1, undermappe
Next
End function
DoListMapper 0,startmappe
Set objFS = Nothing
set objFC = Nothing
%>
--
Jakob Andersen
FAQ for webdesign gruppen på
<
http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar
"