FileObj.GetFolder - HJÆLP

Prøv sådan :

<%  Set FileObj = Server.CreateObject("Scripting.FileSystemObject")

      Set MainFolder = FileObj.GetFolder(Server.MapPath(Path & Request.QueryString("bruger")))
     
      oldPath = Request.QueryString("bruger")
      if oldPath <> "" then oldPath = oldPath & "/"
     
      Set Folders = MainFolder.SubFolders
      intCount = 0
      For Each Folder In Folders
      If intCount <=  4 Then
        strBreake = "<br>"
      Else
        strBreake = ""
        intCount = 0
      End If
        Response.Write "<a href=""" & Request.ServerVariables("URL") & "?bruger=" & LCase(oldPath & Folder.Name) & """>" & folder.Name & "</a>" & strBreake
      intCount = intCount + 1
      Next
      Set MainFolder = Nothing
      Set Folders = Nothing
    If Request("bruger") = "" Then

//>Rune

:-(  det virker ikke
men der bruges jo heller ikke <br> i original sovsen, men jegh kan ikke lige se hvorfor den skifter linie ??

Skal det ind i en tabel så prøv med dette:



<%  Set FileObj = Server.CreateObject("Scripting.FileSystemObject")

      Set MainFolder = FileObj.GetFolder(Server.MapPath(Path & Request.QueryString("bruger")))
     
      oldPath = Request.QueryString("bruger")
      if oldPath <> "" then oldPath = oldPath & "/"
     
      Set Folders = MainFolder.SubFolders

      Response.write "<table>"
      antalprlinje = 0
      maxprlinje = 4
      For Each Folder In Folders
        if antalprlinje = 0 then Response.write "<tr>"

        Response.Write "<td><a href=""" & Request.ServerVariables("URL") & "?bruger=" & LCase(oldPath & Folder.Name) & """>" & folder.Name & "</a></td>"
       
        antalprlinje = antalprlinje + 1
        if antalprlinje = maxprlinje then
          Response.write "</tr>"
          antalprlinje = 0
        end if
      Next
      if antalprlinje > 0 then Response.write "</tr>"
      Response.write "</table>"

      Set MainFolder = Nothing
      Set Folders = Nothing
    If Request("bruger") = "" Then

ok der bruges "& strBreake"

men det du lavede virker stadig ikke :-(

:-)

se det var bedre

tak for hjælpen