Quick: Udskrive undermapper af undermappe

Tænker du på en folder? Hvor du vil udskrive
subfolders?
Altså filesystemobjektet?

Eller har du det hele i en variabel?

fso

file system object

Erstat \"/eksperten\" med din folder-variabel:

<html>
<head>
<title>Subfolders</title>
</head>
<body>
<%
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>\"
  Next
  ShowFolderList = s
End Function

din_mappe = \"/eksperten\"
Response.Write ShowFolderList(Server.Mappath(din_mappe))
%>
</body>
</html>

----------------------------------------------
//Claus

Jeg ville gerne have hjulpet dig hvis det ikke var pga. din opførsel i http://www.eksperten.dk/spm/105038

jeg fandt selv ud af det, så du får kun 49 points.. vil have et selv :-)

Tjaaa, jeg har jo ikke fået dem endnu!

Så siger jeg tak ;o)

Me 2 :o)