Den här koden visar alla filer i samma katalog som den ligger i:
Fråga: Hur gör jag om jag vill visa alla kataloger som ligger där också??
<HTML>
<HEAD>
<TITLE>FileSystemObject</TITLE>
</HEAD>
<BODY>
<%
dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables("PATH_INFO")
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><font face="verdana, arial, helvetica" size="1">File Name</font></TH>
<TH><font face="verdana, arial, helvetica" size="1">Type</font></TH>
<TH><font face="verdana, arial, helvetica" size="1">File Size</font></TH>
<TH><font face="verdana, arial, helvetica" size="1">Last Modified</font></TH>
</TR>
<%
For Each objFileItem in objFolderContents
%>
<TR><TD align=left>
<A HREF="<%= objFileItem.Name %>"><FONT FACE="Verdana" SIZE="1">
<%= objFileItem.Name %></A></FONT></TD>
<TD align=right><FONT FACE="verdana" SIZE="1" COLOR="DarkGreen">
<%= objFileItem.type %></FONT></TD>
<TD align=right><FONT FACE="verdana" SIZE="1" COLOR="DarkGreen">
<%= objFileItem.size %></FONT></TD>
<TD align=right><FONT FACE="verdana" SIZE="1" COLOR="DarkGreen">
<%= objFileItem.DateLastModified %></FONT></TD>
<TD align=right><FONT FACE="verdana" SIZE="1" COLOR="DarkGreen">
</TD>
</TR>
<%
Next
%>
</TABLE>
<!-- #include file="FileDetails.inc" -->
<HR>
</BODY>
</HTML>
------------------
/Sandman