Mapper, undermapper, undermapper osv... ???

hvilket script bruger du nu?

Koden er lige nu:

<select name="place">
<%
  ShowSub = request("Sub")
  ShowPic = request("ShowPic")
  strPathInfo = Request.ServerVariables("PATH_INFO")
  strPhysicalPath = Server.MapPath(strPathInfo)

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.GetFile(strPhysicalPath)
  Set objFolder = objFile.ParentFolder
  Set objFolderContents = objFolder.Files
  For each Folder in objFolder.SubFolders
 
  strPhysicalPathXX = replace(strPhysicalPath,"upload.asp","")
%>
   
<option <% if showSub=Folder.Name then %>selected<% end if %> value="<% =Folder.Name %>"><% =Folder.Name %></option>

<%
If ShowSub <= " " Then
ShowSub = Folder.Name
End if
Next
Set objFSO = Nothing
%>
</select>

Dette styk kode roder alle foldere igennem:


<%
Set fso = CreateObject("Scripting.FileSystemObject")

function lookinfolder (foldernavn)
  Set objFolder = fso.getFolder( foldernavn )
  Response.Write objFolder.path & "<br>"
  Response.Flush
 

  For each Folder in objFolder.SubFolders
    call lookinfolder (Folder.path)
  next
 
  Set objFolder = Nothing
end function


sti = "."
strPhysicalPath = Server.MapPath(sti)

lookinfolder (strPhysicalPath)

Conn.Close
Set Conn = Nothing
Set fso = Nothing
%>

Jaah dt sq rigtigt!! TAARK for hjælpen!