Skrive navne på foldere

<%
Dim filesys, demofolder, subfol, folcoll, folist
Set filesys = CreateObject("Scripting.FileSystemObject")
Set ShowMapper = filesys.GetFolder("c:\images\kollektioner\") 
Set folcoll = ShowMapper.SubFolders 
For Each subfol in folcoll
    folist = folist & subfol.Name 
    folist = folist & "<BR>" 
Next
Response.Write folist
%>

/Goose

kanon, bare et problem. Folderen ligger ikke i c:\images\kollektioner. Skal nok ud i noget server.mapPath vil jeg tro. Selve filen hvori scritet skal ligge hedder download.

Så prøv med

<%
Dim filesys, demofolder, subfol, folcoll, folist
Set filesys = CreateObject("Scripting.FileSystemObject")
Set ShowMapper = filesys.GetFolder (Server.MapPath("images/kollektioner"))
Set folcoll = ShowMapper.SubFolders 
For Each subfol in folcoll
    folist = folist & subfol.Name 
    folist = folist & "<BR>" 
Next
Response.Write folist
%>

/Goose

Ovenstående er lige testet og virker hvis mappestrukturen er:

Download (her ligger ovenstående fil)
-------- images
---------------- kollektioner
---------------------------- mappe1
---------------------------- mappe2

/Goose

tak for hjælpen.

Det var så lidt og tak for point.

/Goose