hjælp, jeg forstår ikke det her

en anden gang... så skriv en overskrift der handler lidt om problemet...

Response.Write("<td>" & folder.name & "</td>") <-- tror det er den der skal væk det er den der hedder billeder......

Jeg kan give en grov forklaring:

<!--Her lister den i hukommelsen hvad folderen Billeder indeholder-->
<% ListFolderContents(Server.MapPath("Billeder")) %>

<%
'Her laver den en sub rutine
sub ListFolderContents(path)
'Her dimmensioneres variabler file og url kan vist slettes da de ikke bruges
    dim fs, folder, item
'Her sættes variablen fs, og der fortælles det er et FSO
set fs = CreateObject("Scripting.FileSystemObject")
'Her sættes variablen folder, den indeholde FSO syntaxen folder path
    set folder = fs.GetFolder(path)
    'Display the target folder and info. Den her er det jeg mener kan slettes
    Response.Write("<td>" & folder.name & "</td>")
 
    'Her laves en for løkke som skriver alle subfolders
    for each item in folder.SubFolders
      ListFolderContents(item.Path)
    next
'Her afsluttes subrutinen
end sub
%>

/Tubber

Alt det kunne jeg godt forstå, det jeg ikke kan forstå er at den skrive alle subfolderne på samme måde som " <td> & folder.name & <td>.

ikke for at være grov, men dit svar hjælper mig ikke videre.

Response.Write(folder.name & "<BR>")

Prøv at ændre den til det der......

ja så vil den lave det som en liste, men stadig med mappens navn først.

Her er svaret, jeg har fået sat det sammen så det virker som det skal nu,
<%
strPath = "Billeder"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
%>
<TABLE WIDTH="100%" BORDER="1" BGCOLOR="#FFFFFF" BORDERCOLOR="#000000">
<TR>
<TD WIDTH="30%"><FONT><B>Mappe navn:</B></FONT></TD>
</TR>
<%
For Each objItem In objFolder.SubFolders
    If InStr(1, objItem, "_vti", 1) = 0 Then
    %>
    <TR>
        <TD WIDTH="30%">&nbsp;<%= objItem.Name %></TD>
       
       
    </TR>
    <%
    End If
Next
For Each objItem In objFolder.Files