visning af mappe indhold

ja... filesystemobject

Se her:
http://www.sloppycode.net/Reference/fso/

Kig nærmere her:
http://www.sloppycode.net/Reference/FSO/Ref-132.html

du kan muligvis bruge denne...

      <%
  sti = "filer/" 'sti til mappe
  ShowSub = sti & request("ShowSub")
  ShowSubLink = request("ShowSub")
  strPathInfo = ShowSub
 
  strPhysicalPath = Server.MapPath(strPathInfo)

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(strPhysicalPath)

  For each Folder in objFolder.SubFolders
    If Left(Folder.Name,1)<>"_" Then
      Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & ""
      Response.Write(Replace(Folder.Name, " ", "%20"))
      response.write """>"
      Response.Write Folder.Name
      Response.Write "<br>"
    End if
  Next

  Set objFSO = Nothing
  %>


<%
'Response.Write ShowSub  & "<br>"
'Response.Write strPhysicalPath
'Response.End

  SiteName = request.servervariables("script_name")
  strPhysicalPath = Server.MapPath(ShowSub)

    If ShowSub > " " then
    ShowSub = Replace(ShowSub, " ", "%20")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files
    For Each objFileItem in objFolderContents

objFileItem.Name &""">" & objFileItem.Name  & "</a>"
        Response.Write "<a href=""" & ShowSub & "" & objFileItem.Name &""" target='_blank'>" & objFileItem.Name  & "</a>"
          Next
    Set objFSO = Nothing
  End if
  %>

musti776.. perfekt præcis det jeg skulle bruge..! jeg takker for hjælpem! smider du et svar så sakl du få point

er der ik en måde at tjekke om mappen eksisterer så den ikke kommer med "path not found"  hvis mappen ik er der?

noget i retning af denne:
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

If fs.FolderExists("c:\temp") = true Then
      Response.Write("Folder c:\temp exists.")
Else
      Response.Write("Folder c:\temp does not exist.")
End If

set fs=nothing
%>

30 points er nok til mig... tag resten selv :)

/Musti

:)