Lav: mappeindex

<HTML>
<BODY>

<%
  Dim strPathInfo, strPhysicalPath
  strPathInfo = Request.ServerVariables(\"SCRIPT_NAME\")
  strPhysicalPath = Server.MapPath(strPathInfo)

  Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
  Set objFSO = CreateObject(\"Scripting.FileSystemObject\")

  Set objFile = objFSO.GetFile(strPhysicalPath)
  Set objFolder = objFile.ParentFolder
  Set objFolderContents = objFolder.Files
%>

<TABLE cellpadding=5>
<TR align=center>
  <TH align=left>File Name</TH>
  <TH>File Size</TH>
  <TH>Last Modified</TH>
</TR>

<%
  For Each objFileItem In objFolderContents
    Response.Write \"<TR><TD align=left>\"
    Response.Write objFileItem.Name
    Response.Write \"</TD><TD align=right>\"
    Response.Write objFileItem.Size
    Response.Write \"</TD><TD align=right>\"
    Response.Write objFileItem.DateLastModified
    Response.Write \"</TD></TR>\"
  Next
%>

</TABLE>
</BODY>
</HTML>

tak :-)

jamen selv tak ;)

Lavede/havde du den i forvejen - eller fandt du den - hvis du fandt den - hvor var det så?

Det var en jeg havde i forvejen. Var der da mere du skulle bruge?

Hmmm - http://www.eksperten.dk/spm/144211